ggvis + layer_bars +填充

Question

这是ggvis、fill和layer_bars的一个问题。我正在尝试运行以下代码，但它不起作用。用Iris替换我的数据似乎解决了这个问题，但我找不到原因。我还尝试添加一个group_by ..。但也不是更好。任何建议都欢迎！

我得到的错误是：

ERROR : object 'coul' not found

这是一个代码：

for (package in c('dtplyr', 'shiny', 'shinydashboard', 'ggvis')) {
  if (!require(package, character.only=T, quietly=T)) {
    tryCatch({
      install.packages(package)
      library(package, character.only = TRUE)}
      , error=function(e){cat("ERROR :",conditionMessage(e), "\n")})
  }    
}
tbl.consommation <- structure(list(nom = c("A", "B", 
                                 "C", "D", "E", "F", "G", "H", 
                                 "I", "J", "K", "L", "M", "N", 
                                 "O", "P", "Q", "R", "S", 
                                 "T", "U"), 
                               pourcentage_consomme = c(0.8, 0.5, 
                                                            0.2, 0.1, 1.9, 0.3, 
                                                            0.2, 0.01, 0.1, 0.51, 
                                                            0.45, 0.5, 0.95, 0.13, 
                                                            0.66, 0.46, 0.42, 0.42, 
                                                            0.32, 0.5, 1.1), 
                               coul = c("#0000FF", "#FF0000", "#E2001C", 
                                        "#71008D", "#1C00E2", "#3800C6", "#FF0000", "#1C00E2", "#0000FF", 
                                        "#71008D", "#3800C6", "#0000FF", "#E2001C", "#0000FF", "#0000FF", 
                                        "#5500AA", "#5500AA", "#5500AA", "#3800C6", "#0000FF", "#0000FF"
                                        )), 
                          .Names = c("nom",  "pourcentage_consomme", "coul"), row.names = c(NA, -21L
                                      ), class = c("data.table", "data.frame"),  sorted = "nom")
ui <- dashboardPage(
  title="Test ggvis",
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Graphique", tabName = "Graph", icon = icon("signal"))
)
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Graph",
          ggvisOutput("graphConso")
      )
    )

  )
)
server <- function(input, output) {
  tryCatch({
  graphConso <- 
    tbl.consommation %>% 
  ggvis(x = ~nom, y = ~pourcentage_consomme, fill =  ~coul) %>%
  layer_bars(width = 0.5) 
  graphConso %>% bind_shiny("graphConso")
}   , error=function(e){cat("ERROR :",conditionMessage(e), "\n")})

}
shinyApp(ui = ui, server = server)

Answer 1

这一问题是由tbl.consommation的建设引起的。显然，库dtplyr并不是通过structure函数来处理data.frame的创建。

因此，要使应用程序正常工作，就必须将tbl.consommation“转换”为带有as.data.frame(...)函数的data.frame。