R Shiny中如何通过滑块控件控制饼图显示的类别数量

现有代码失效原因 #

你当前的代码无法实现交互效果，核心问题有3个：

• 函数参数误用：breaks是hist()直方图函数的专属参数，pie()饼图函数不存在这个参数，写入后不会生效
• 逻辑不匹配需求：现有分箱逻辑是把连续的课时长度拆成数值区间，不是控制展示多少个独立的课程类别
• 参数格式错误：颜色值"76776"缺少十六进制颜色必需的#前缀，无法正常渲染目标颜色

修改说明 #

UI部分的滑块控件已经定义完成，不需要改动，仅需要调整server端的绘图渲染逻辑：

1. 先对数据集按课程时长降序排序，保证滑块调整时优先展示时长更长的核心类别
2. 读取滑块返回的input$bins数值，截取对应数量的类别数据传入饼图函数
3. 删除pie()函数中无效的breaks参数，修正颜色格式，补充扇区对应的类别标签

修改后可直接运行的代码 #

library(shiny)
library(readr)
GiuseppeData <- read_csv("Classes_with_Giuseppe.csv")

ui <- fluidPage(
  titlePanel("Hello Giuseppe!"),
  sidebarLayout(
    sidebarPanel(
      # 原有滑块控件无需改动
      sliderInput(inputId = "bins",
                  label = "Amount of Classes",
                  min = 1,
                  max = 18,
                  value = 7)
    ),
    mainPanel(
      plotOutput(outputId = "distPie")
    )
  )
)

server <- function(input, output) {
  output$distPie <- renderPlot({
    # 按课程时长降序排序
    sorted_data <- GiuseppeData[order(-GiuseppeData$length_of_classes), ]
    # 根据滑块值截取要展示的前N个类别
    show_data <- sorted_data[1:input$bins, ]
    
    # 绘制饼图
    pie(show_data$length_of_classes,
        labels = show_data$class_name, # 替换为你CSV里存储类别名称的实际列名即可
        col = "#767767", # 补全十六进制颜色的#前缀和完整色值
        border = "pink",
        main = "Pie of Length of Each Class (in hours)")
  })
}

shinyApp(ui = ui, server = server)

提示：代码中show_data$class_name需要替换为你CSV文件中存储课程名称的实际列名，和你预览数据里的类别字段对应即可。

内容的提问来源于stack exchange，提问作者user778