带有闪亮仪表板的 gvisGeoChart答案

【问题标题】：gvisGeoChart with shiny Dashboard带有闪亮仪表板的 gvisGeoChart
【发布时间】：2016-04-17 13:26:13
【问题描述】：

无法在我闪亮的仪表板中获取 givsGeoChart 的输出。

下面是相同的代码。

library(shiny)
library(shinydashboard)
library(googleVis)

ui <- dashboardPage(
       dashboardHeader(),
       dashboardSidebar(),
       dashboardBody(
          htmlOutput("Accidents")
                    )
                   )

server <- function(input, output) {

      output$Accidents <- renderGvis({
            gvisGeoChart(Dum, "States","Road_Accident",
            options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
            })
          }

shinyApp(ui, server)

上面的代码不起作用。

GeoStates_IN <- gvisGeoChart(Dum, "States","Road_Accident",options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
plot(GeoStates_IN)

而这段代码有效。无法弄清楚上面代码中缺少什么。

感谢任何形式的帮助。

【问题讨论】：

标签： r google-visualization googlevis shinydashboard gvisgeomap

【解决方案1】：

问题与您的options() 或数据有关。您的变量 dum 是否包含列“States”和“Road_Accident”。您是否将数据包含在server.R 中？

这行得通：

library(shiny)
library(shinydashboard)
library(googleVis)

ui <- dashboardPage(
       dashboardHeader(),
       dashboardSidebar(),
       dashboardBody(
          htmlOutput("Accidents")
                    )
                   )

server <- function(input, output) {

      output$Accidents <- renderGvis({
            data(Exports)
            #map<-gvisGeoChart(Exports, "States","Road_Accident",
            #options=list(region="IN",displayMode="regions",resolution="provinces",width="100%"))
            map<-gvisGeoChart(Exports, locationvar='Country', colorvar='Profit',
                   options=list(projection="kavrayskiy-vii"))
            return(map)
            })
          }

shinyApp(ui, server)

【讨论】：