ggvis + layer_bars + 填充答案

【问题标题】：ggvis + layer_bars + fillggvis + layer_bars + 填充
【发布时间】：2019-12-25 10:48:59
【问题描述】：

这是 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)

【问题讨论】：

标签： r shiny dplyr ggvis

【解决方案1】：

问题是由tbl.consommation的构造引起的。显然库dtplyr 没有通过structure 函数处理data.frame 的创建。

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

【讨论】：