在 Rmarkdown 中使用 Shiny 创建反应式 selectInput - flexdashboard

Question

我是第一次使用 shiney。我想创建一个反应式小部件，其中包含我研究中感兴趣的城市的名称。选择城市时，渲染图必须改变。

这是我导入的 csv：

```{r}
    Data20 = read_delim("SAC55.csv", delim = ",")
    tail(Data20)
```
   `DIAS `    `SANTOAMARO ` ` CACHOEIRA ` `CDA ` `SAUBARA `   SFC
  <date>             <dbl>         <dbl>  <dbl>      <dbl> <dbl>
1 2020-08-10           690           333    466         47   668
2 2020-08-11           695           335    470         47   676
3 2020-08-12           717           350    483         48   687
4 2020-08-13           719           356    500         48   701
5 2020-08-14           736           370    507         49   708
6 2020-08-15           763           377    527         49   713


```{r}
colnames(Data20) <- gsub(" ","",colnames(Data20))

```
DIAS       SANTOAMARO CACHOEIRA   CDA SAUBARA   SFC
  <date>          <dbl>     <dbl> <dbl>   <dbl> <dbl>
1 2020-08-10        690       333   466      47   668
2 2020-08-11        695       335   470      47   676
3 2020-08-12        717       350   483      48   687
4 2020-08-13        719       356   500      48   701
5 2020-08-14        736       370   507      49   708
6 2020-08-15        763       377   527      49   713

这就是我尝试创建反应式 selectImput

的方式

Data20 = read_delim("SAC55.csv", delim = ",")
colnames(Data20) <- gsub(" ","",colnames(Data20))
Data20$DIAS = as.Date(Data20$DIAS)



  ```{r}

ui = shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
selectInput(inputId = "Cidades", 
              label = "Cidades",
             choices = c("Santo Amaro" = "SANTOAMARO", "Cachoeira" = "CACHOEIRA", "Cruz das Almas" = "CDA", "Saubara" = "SAUBARA", "SFC" = "SFC"), 
             selected = "SANTOAMARO")),

mainPanel(plotlyOutput("city")))

  ))

server = shinyServer(function(input, output) {

  II <- reactive({
    Data20[ , c("DIAS", input$Cidades)]
     })

output$city = renderPlotly({
   ggplotly(ggplot(data = II(), mapping = aes_string("DIAS", y = input$cidades),  group=1))+
  geom_line(size = 1, col="pink")+
  geom_point(size = 1, col="red" )+
  labs(x = "DIAS") + 
  labs(y = "CASOS")+
  scale_x_date(NULL, date_labels = "%d, %b", date_breaks = "3 days")+
  scale_y_continuous(limits = c(0, 800), breaks = c(0,10,20,40,60,80,100,120,140,180,160,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500,520,540,560,580,600,620,640,660,680,700,720,740,760,780,800,900))+
  theme(plot.title = element_text(hjust = 0.5))+
  theme(text=element_text(family=" Arial ", size=9, face="bold"))+
  theme(axis.text.x = element_text(family="Arial", face="bold", size=10, angle=45)) 
 })
})
shinyApp(ui = ui,server = server)
```

虽然出现带有城市名称的小部件，但图形已经形成。我已经尝试了几种方法来解决这个问题，但都无济于事。如果有人能帮助我，我将不胜感激。

Answer 1

Felipe - 看起来这里可能发生了一些事情。

如果您的 II() reactive 表达式是从 Data20 中提取日期和城市数据，那么您可能需要（注意硬括号）：

Data20[ , c("DIAS", input$Cidades)]

否则，它会认为Data20是一个函数。

此外，示例数据 Data20 具有诸如“SAUBARA”之类的列名称，但 selectInput 选项指的是 `SAUBARA `（带有反引号和 space）-这些必须相同。

最后，在ggplotly中，如果你想让y-axis显示选择的城市，那么你可以试试：

aes_string(x = "DIAS", y = input$Cidades, group = 1)

...和 ggplotly 应该在 ggplot 对象上调用。

library(shiny)
library(ggplot2)
library(plotly)

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "Cidades", 
                  label = "Cidades:",
                  choices = c("Santo Amaro" = "SANTOAMARO", "Cachoeira" = "CACHOEIRA", "Cruz das Almas" = "CDA", "Saubara" = "SAUBARA", "SFC" = "SFC"), 
                  selected = "SANTOAMARO")),
    
    mainPanel(plotlyOutput("city")))
))

server <- shinyServer(function(input, output) {
  
  II <- reactive({ 
    Data20[ , c("DIAS", input$Cidades)]
  })
  
  output$city = renderPlotly({
    ggplotly(ggplot(data = II(), mapping = aes_string(x = "DIAS", y = input$Cidades, group = 1)) +
      geom_line(size = 1, col="pink")+
      geom_point(size = 1, col="red" )+
      labs(x = "DIAS",  tail(129)) + 
      labs(y = "CASOS")+
      scale_x_date(NULL, date_labels = "%d, %b", date_breaks = "3 days")+
      scale_y_continuous(limits = c(0, 800), breaks = c(0,10,20,40,60,80,100,120,140,180,160,200,220,240,260,280,300,320,340,360,380,400,420,440,460,480,500,520,540,560,580,600,620,640,660,680,700,720,740,760,780,800,900))+
      theme(plot.title = element_text(hjust = 0.5))+
      theme(text=element_text(family=" Arial ", size=9, face="bold"))+
      theme(axis.text.x = element_text(family="Arial", face="bold", size=10, angle=45)))
  })
  
})

shinyApp(ui, server)

在 Rmarkdown 中使用 Shiny 创建反应式 selectInput - flexdashboard

Create reactive selectInput - flexdashboard with Shiny in Rmarkdown

r

r-markdown

flexdashboard