Question

我正在尝试在闪亮的仪表板中的renderUI中制作条形图。以下是我的代码

output$city_plot <- renderUI({

clean_data(data) %>% 
  group_by(registrant_city) %>%
  summarise(Total= n()) %>% 
  arrange(desc(Total)) %>% 
  ggplot(data=clean_data(data),aes(x= registrant_city, y = Total)) + 
  geom_bar(aes(fill= registrant_city), position = "dodge", stat = "identity") 


})

clean_data是一个在清理和修改数据帧后返回数据帧的函数

每当我运行闪亮的应用程序时，它都会给我Error:Mapping should be created with aes（）或aes_()。我不知道究竟是什么意思。当我在R控制台中运行相同的代码时，它给了我一个适当的输出。

data%>%
  group_by(registrant_city) %>%
  summarise(Total = n())    %>%
  arrange(desc(Total))      %>%
  top_n(n = 10)             %>%
  ggplot(aes(x= registrant_city, y = Total)) + 
  geom_bar(aes(fill=registrant_city), position = "dodge", stat = "identity")

我做错了什么？请帮忙

Answer 1

我在ui.R文件而非uiOutput文件中提出了错误，我将其更改为plotOutput并在server.R文件中将其更改为{ {1}}

现在一切正常。

如何在闪亮的仪表板中使用dplyr制作条形图

1 个答案: