r - 在 Rshiny Dashboaord 上生成饼图

Question

嗨，我目前正在开发 Rshiny 仪表板，可以在用户上传文件并选择要在网站上显示的特定变量时显示数据可视化。除了饼图，我所有的其他图表都运行良好。数据正在使用响应式传递。

output$transformedData <- renderDataTable({
data <- data()
})

observeEvent(data_input(),{
choices <- c(not_sel,names(data_input()))
updateSelectInput(inputId = "num_var_1", choices = choices)
updateSelectInput(inputId = "num_var_2", choices = choices)
updateSelectInput(inputId = "fact_var", choices = choices)
})



num_var_1 <- eventReactive(input$run_button,input$num_var_1)
num_var_2 <- eventReactive(input$run_button,input$num_var_2)
fact_var <- eventReactive(input$run_button,input$fact_var)

这是饼图的代码

plot3 <- reactive({
ggplot(data_input(), aes_string(x= fact_var(), y = num_var_1(), fill = fact_var())) +
  geom_bar(stat="identity", width = 1, show.legend = FALSE) +
  coord_polar("y", start = 0) +
  theme(legend.position = "none") #to remove colour indicator
})

标签： rpie-chartdashboardshinydashboardrshiny