R Shiny中如何配置radioButtons实现男女及“全部”选项选择

你当前编写的代码存在选项重复问题：levels(Titanic$Sex)本身已经返回female、male两个性别值，后续重复手动追加这两个值会导致单选控件出现重复选项。

修正单选控件配置 #

直接配置3个不重复的选项即可，修正后的控件代码如下：

radioButtons(
  inputId = "Buttons",
  label = "Sex",
  choices = c("female", "male", "All"),
  selected = "male"
)

如果想保留通过levels()自动读取性别枚举值的写法，只需要把All拼接到因子水平结果末尾即可，无需重复写已有性别值，适配后续数据集因子水平变动的场景：

radioButtons(
  inputId = "Buttons",
  label = "Sex",
  choices = c(levels(Titanic$Sex), "All"),
  selected = "male"
)

配套服务端筛选逻辑 #

在Shiny的server端编写响应式筛选规则，选中All时不做性别过滤，选中对应性别时只匹配对应分类的数据，参考示例：

library(shiny)
library(datasets)

server <- function(input, output) {
  # 响应式筛选数据集
  filtered_titanic <- reactive({
    df <- as.data.frame(Titanic)
    # 未选All时按性别过滤
    if (input$Buttons != "All") {
      df <- df[df$Sex == input$Buttons, ]
    }
    df
  })
  
  # 后续可调用filtered_titanic()做表格渲染、绘图等操作
}

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