如何在閃亮的儀表板上使用dplyr制作條形圖

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_() Error:Mapping should be created with 。`我不知道這到底意味着什么。 當我在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文件中將其更改為renderPlot

現在一切正常。