光沢のあるまたはflexdahsboardでユーザーが選択した変数のプロットチャートを作成するにはどうすればよいですか？

Question

私はRにかなり慣れていないので、ユーザー入力からx変数とy変数を受け取り、それらの値のグラフを返すフレックスダッシュボードをまとめようとしています。これまでのところ、以下のコードでggplotlyを使用して目的のグラフを生成できます。

output$scatter <-renderPlotly({ cat('input$x=',input$x,'\n') cat('input$y=',input$y,'\n') p <- ggplot(Merged_data_frame_hcat, aes_string(x=input$x, y=input$y)) +
       geom_point()+
       theme_minimal(base_size = 14) 
  g <- ggplotly(p, source = 'source') %>%
       layout(dragmode = 'lasso',
       margin = list(l = 100),
       font = list(family = 'Open Sans', size = 16))
})

ただし、ggplotlyを使用すると、ダッシュボードの外部で同じ変数をグラフ化するためにplot_lyを使用したときのようにx軸が定義されていないことに気付きました。

plot_ly isideflexdashboardを使用する方法はありますか。これまで私はこれを書きましたが、それはうまくいきませんでした。ところで、plot_lyが文字列である入力名をうまく受け取らなかったため、ここではnoquoteを使用しています

output$scatter <-renderPlotly({
  
  cat('input$x=',input$x,'\n')
  cat('input$y=',input$y,'\n')
  if (length(input$y) == 2){ x1 = noquote(input$x)
     y1 =noquote(input$y[1]) y2 = noquote(input$y[2])
  
   plot_ly(Merged_data_frame_hcat)%>%
     add_lines(x= ~x1,y =~y1, name = "Red") 
     add_lines(x= ~x1, y =~y2, name = "Green")
   }
})

忘れる前に、簡単にするために縮小したデータフレームの例を次に示します。

df <-data.frame("Timestamp.Excel_1900."=c("2019-04-01 16:52:51","2019-04-01 16:57:46","2019-04-01 17:02:51","2019-04-01 17:07:46","2019-04-01 17:12:52","2019-04-01 17:17:46"), "Temperature.C."= c(5.2995,5.3155,5.3353,5.3536,5.3770,5.4044), "pH.pH."= c(7.60,7.80,7.96,8.04, 8.09, 8.14))

Answer 1

これを機能させるには、いくつかのアプローチがあります。残念ながら、を使用noquoteしたアプローチは機能しません。

1. おそらく最も簡単なアプローチは、dfから列を抽出し、それらをplotlyベクトルとして渡すことです。x = df[[input$x]]
2. plotlyAPIは、片側式で動作する第2のアプローチは、例えば式、などの変数を渡すことであろうx = as.formula(paste0("~", input$x))
3. この投稿に続いてbase::get、例えばを利用することもできますx = ~get(input$x)
4. この投稿に続いて、きちんとした評価を利用することもできます

次の例のflexdashboardに、4つのアプローチすべてを示します。

---
title: "Plotly"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r}
library(plotly)
library(rlang)
```

```{r global, include=FALSE}
# load data in 'global' chunk so it can be shared by all users of the dashboard
df <- data.frame("Timestamp.Excel_1900." = c("2019-04-01 16:52:51","2019-04-01 16:57:46","2019-04-01 17:02:51","2019-04-01 17:07:46","2019-04-01 17:12:52","2019-04-01 17:17:46"), "Temperature.C."= c(5.2995,5.3155,5.3353,5.3536,5.3770,5.4044), "pH.pH."= c(7.60,7.80,7.96,8.04, 8.09, 8.14))

```

Column {.sidebar}
-----------------------------------------------------------------------

```{r}
selectInput("x",
  "x",
  choices = names(df),
  selected = "Timestamp.Excel_1900."
)
selectizeInput("y",
  "y",
  choices = names(df),
  selected = c("Temperature.C.", "pH.pH."),
  multiple = TRUE,
  options = list(maxItems = 2)
)
```

Column
-----------------------------------------------------------------------

```{r}
# Pass the data columns as vectors
renderPlotly({
  if (length(input$y) == 2) {
    x1 <- df[[input$x]] y1 <- df[[input$y[1]]]
    y2 <- df[[input$y[2]]] plot_ly() %>% add_lines(x = x1, y = y1, name = "Red") %>% add_lines(x = x1, y = y2, name = "Green") } }) ``` ```{r} # One-sided formulas renderPlotly({ if (length(input$y) == 2) {
    x1 <- input$x y1 <- input$y[1]
    y2 <- input$y[2] plot_ly(df) %>% add_lines(x = as.formula(paste("~", x1)), y = as.formula(paste("~", y1)), name = "Red") %>% add_lines(x = as.formula(paste("~", x1)), y = as.formula(paste("~", y2)), name = "Green") } }) ``` Column ----------------------------------------------------------------------- ```{r} # Using base::get renderPlotly({ if (length(input$y) == 2) {
    x1 <- input$x y1 <- input$y[1]
    y2 <- input$y[2] plot_ly(df) %>% add_lines(x = ~ get(x1), y = ~ get(y1), name = "Red") %>% add_lines(x = ~ get(x1), y = ~ get(y2), name = "Green") } }) ``` ```{r} # Using tidy evaluation renderPlotly({ if (length(input$y) == 2) {
    x1 <- input$x y1 <- input$y[1]
    y2 <- input$y[2]

    eval_tidy(
      quo_squash(
        quo({
          plot_ly(df) %>%
            add_lines(x = ~ !!sym(x1), y = ~ !!sym(y1), name = "Red") %>%
            add_lines(x = ~ !!sym(x1), y = ~ !!sym(y2), name = "Green")
        })
      )
    )
  }
})
```