Shiny中的反应箱线图与交互式平均线答案

【问题标题】：Reactive boxplot in Shiny with interactive mean lineShiny中的反应箱线图与交互式平均线
【发布时间】：2017-12-16 15:22:58
【问题描述】：

我是 R 新手，一直在尝试一些东西。现在我想制作一个相当简单的闪亮应用程序，目的是询问一些关于我在 keggle 找到的数据集的问题。该数据集涉及旧金山的工资。

我的想法如下：

如下创建箱线图：

类别

我希望用户选择他/她想要查看的这些或所有这些。

目前我有：

用户界面：

library(shiny)

shinyUI(pageWithSidebar(


  headerPanel("Miles Per Gallon"),

  sidebarPanel(
    selectInput("variable", "Variable:",
                list("Low" = "low", 
                     "Mid" = "mid", 
                     "High" = "high",
                     "Highest"= "highest")),

  mainPanel(
    h3(textOutput("caption")),

    plotOutput("Plot")
  )
)
  )
)

服务器：

library(shiny)

Categories <- cut(Salaries$TotalPay, breaks = c(0,30000,60000,100000,500000), labels=c("low","mid","high","highest"))

shinyServer(function(input, output) {


  formulaText <- reactive({
    paste("TotalPay~", input$variable)
  })

  output$caption <- renderText({
    formulaText()
  })


  Plot <- renderPlot({
    boxplot(as.formula(formulaText()), 
            data = Categories
            )
  })
})

我做错了什么？我认为这是从“薪水”导入数据的问题。

提前致谢:)。

【问题讨论】：

我没有看到您正在加载数据的任何功能...
是的，这是我的问题之一。我一直在尝试使用库功能，但没有用。我该怎么办？
库仅用于加载包。您是否将数据保存在 csv 文件中？
是的，它的 Salaries.csv，我在顶部使用 read.csv() 吗？

标签： r shiny boxplot reactive

【解决方案1】：

为了澄清我的评论，您使用 libary() 来加载包，但这些包可能是来自 CRAN 或 base R 的数据集。但对于您的示例，您的 server.r 文件中需要这样的内容：

salaries <- read.csv("Salaries.csv")

确保 csv 文件与 ui.r 和 server.r 文件位于同一文件夹中

由于您是 R 的新手和闪亮的，这个示例应用程序可能有助于使用 ui 小部件： https://shiny.rstudio.com/gallery/telephones-by-region.html

请注意，上面的示例使用“datasets”库中的数据集。

编辑：

我注意到其他一些项目引发了一些其他问题。您是否在 Shiny Server 上部署此应用程序？当我认为它需要更像这样时，您的服务器功能正在使用 ShinyServer：

server <- function(input, output) { 
#server code

shinyApp(ui= ui, server = server)
}

你的用户界面应该更像这样：

ui <- fluidPage(
#ui code
)

【讨论】：

非常感谢亚历克斯！所以我要读它。据你所知，它会做我想让它做的事情吗？
由于数据来自 kaggle，如果你把它发给我，我也许可以让它为你工作。
谢谢亚历克斯。您的建议帮助了很多人。
如果这个答案解决了你的问题，那么你会批准它作为接受的答案吗？
它大部分都有，谢谢，我没有它！接受它作为解决方案。