Question

这里只有4种语言，所以这绝对不是this

的重复

我已经更新了所有的包裹;这不是this或任何其他问题的重复，这些问题表明答案是更新包。

这是一个非常简单的图表：

  ggplot(data=sounds, aes(x=phrase, y=score)) +
      geom_bar(stat="identity") +
      facet_grid(. ~ language, scales="free_x")

在Shiny，我们有类似的东西：

ui <- fluidPage(
  titlePanel("Title"),
  sidebarLayout(
    sidebarPanel(
      selectInput(
          "facet_on",
          label="Split graphing by...",
          choices = list(
              `Language` = "language",
              `Server` = "server",
          )     
      )
    ),
    mainPanel(
        plotOutput("languageMap")
    )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  output$languageMap <- renderPlot({
      ggplot(data=sounds, aes(x=phrase, y=score)) +
          geom_bar(stat="identity") +
          facet_grid(. ~ input$facet_on, scales="free_x")
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

问题是第一个示例完全按照应有的方式呈现。有多个不同的方面，每个方面代表一种特定的语言，其标题是所述语言。

当我在Shiny上尝试这个时，另一方面，总有一个大的方面，并且表面的标题是适当的变量 - 但数据实际上并没有进入其各自的网格。图表根本没有变化，但显然，它从所选的选项中获取了适当的变量并使用某处，因为facet标签正在变为传递给它的变量。

之前有没有遇到过这个？

闪亮的应用程序。没有正确显示ggplot2 facet_grid;没有显示构面，只更改了构面标题标题

0 个答案: