在 Rmarkdown 中生成 flexdashboard

Question

在 Rmarkdown 中生成 flexdashboard，我想导入一个 excel 工作表并使用 selectInput 语句从中选择 2、3、4、5 列（product1、product2、product3、product4）中的任何一个excel表并绘制column1（Day）与selectInput语句（product1或product2或product3或product4）中选定列的散点图。有人可以帮我写 R 代码吗？enter image description here

--- 标题：“一般情节” 作者：“Aravind” 日期：“April 1st,2018” 输出： flexdashboard::flex_dashboard: 方向：列

运行时：闪亮

{r, echo=FALSE} library(readxl) library(flexdashboard) library(shiny) library(plotly) data_to_plot<-read_excel("random.xlsx") 输入 {.sidebar} {r Global Filter Panel, echo=FALSE} selectInput("Product","Activity",choices=c('product1','product2','product3','product4'),selected=NULL,width = '400px') 在这个标签下会显示图表

图表 {.tabsets .tabset-fade}

图表```{r echo=FALSE, message=FALSE}

renderPlotly(
p% layout(title="使用R plotly散点图", xaxis=list(title="Day"),yaxis=list(title="Product"), 图例=列表(x=1,y=0.5))%>% p)

```

Answer 1

您可能想要解决的问题中的一些混乱格式，但答案并不难。

你用过

   selectInput("Product","Activity",choices=c('product1','product2','product3','product4'),selected=NULL,width = '400px')

因此，inputID=Product 的输入选择。在 shiny / flexdashboard 中，这将创建一个变量input$Product。

然后你使用plot_ly() 和

plot_ly( data_to_plot,x=~Product,y=~Day....

在这里您使用Product 变量，除非它是您数据框中的一列，否则它不会分配到任何地方。不如试试这个，

plot_ly( data_to_plot,x=~input$Product,y=~Day....

因此，使用 input$Product 从您的 Shiny selectInput() 中获取值。 希望这会让你继续前进。如果您已经阅读了有关 flexdashboards 的一些教程，我相信您会对此感到熟悉。