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 的创建。

因此，要使您的应用正常运行，您必须 'convert' tbl.consommation 到具有函数 as.data.frame(...).

的 data.frame

ggvis + layer_bars + 填充

ggvis + layer_bars + fill

r

shiny

dplyr

ggvis