在 R Shiny 中使用选定的输入更改文本和绘图

Question

我想根据为绘图选择的参数更改框中的文本。让文字和情节同时变化

所以在那个工作示例中：

如果下拉菜单选择 Sepal.width，我希望有 textoutput: "bliblablub"。

如果下拉菜单选择 Sepal.Length，我希望有 textoutput: "some text"。

如果下拉菜单选择 Petal.Length，我希望有文本输出：“完成不同的东西”。

如果下拉菜单选择 Petal.Width，我希望有 textoutput: "new stuff"。

正如我在原始数据框中的 15 个参数中一样，我也希望获得处理每个参数的文本输入的提示。理想情况下，我会从第二个数据框中获取文本（具有相同的列名？）。

到目前为止，我还不明白如何组合选择输入、文本框和绘图框。

非常感谢您的帮助！

library(shiny)
library(shinydashboard)
#data
dat <-iris

#producing parameters for select input
param <- colnames(dat)
param <- param[1:4]


#ui
Header<- dashboardHeader(title = "Iris")

Sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Parametro", tabName = "parametro", icon = icon("car"))
  )
)

Body <- dashboardBody(
  tabItems(
    tabItem(tabName = "parametro",
            column(width = 12,
                   box(
                     plotOutput("boxplot_species")),
                   fluidRow(
                     box(
                       selectInput("parametro", "Parametros:",
                                   param), width = 6),
                     box(
                       textOutput("description"))
                   )    
            ))
  ))

ui <- dashboardPage(Header,
                    Sidebar,
                    Body)

server <- function(input, output) {
  output$description <- renderText({
    "bliblablub"
  })
  output$boxplot_species <- renderPlot({
    ggplot(dat) +
      aes(x = Species, fill = Species) +
      aes_string(y = input$parametro) +
      geom_boxplot()
  })
}
shinyApp(ui, server)

Answer 1

您可以使用switch 根据下拉选择更新文本并将aes_string 替换为.data，因为aes_string 已弃用。

library(shiny)
library(shinydashboard)
library(ggplot2)

Header<- dashboardHeader(title = "Iris")

Sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Parametro", tabName = "parametro", icon = icon("car"))
  )
)

Body <- dashboardBody(
  tabItems(
    tabItem(tabName = "parametro",
            column(width = 12,
                   box(
                     plotOutput("boxplot_species")),
                   fluidRow(
                     box(
                       selectInput("parametro", "Parametros:",
                                   param), width = 6),
                     box(
                       textOutput("description"))
                   )    
            ))
  ))

ui <- dashboardPage(Header,
                    Sidebar,
                    Body)

server <- function(input, output) {
  output$description <- renderText({
    text <- switch(input$parametro,
            Sepal.Length = 'x', 
            Sepal.Width = 'y',
            Petal.Length = 'other',
            Petal.Width  = 'more'
    )
    paste(text, "is blabla")
  })
  output$boxplot_species <- renderPlot({
    ggplot(dat) +
      aes(x = Species, y = .data[[input$parametro]], fill = Species) +
      geom_boxplot()
  })
}
shinyApp(ui, server)

---

为了保持代码干净，您还可以使用Species 和相应的值创建一个查找数据框。

lookup_df <- data.frame(Species = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"), 
                        value = c('x', 'y', 'other', 'more'))

然后将description代码改为-

 output$description <- renderText({
    lookup_df$value[match(input$parametro, lookup_df$Species)]
  })