Shiny R：将单选按钮输入作为by()函数的INDICES参数

嘿，我一眼就看出你代码里的小问题啦！你想用单选按钮的选择作为by()函数的分组依据，但df$var这种写法不对——因为var是从Shiny输入拿到的字符串（比如"Region"或者"Room Size"），df$var会去数据框里找名叫var的列，这显然不是你要的。咱们换个正确的索引方式就能搞定！

先确认UI部分的单选按钮定义（如果还没写对的话） #

首先确保你的单选按钮是这样定义的，让用户能正确选择分组变量：

radioButtons(
  inputId = "runallmodels",
  label = "Choose Grouping Variable",
  choices = c("Region", "Room Size")
)

修正Server部分的renderTable代码 #

下面是调整后的核心代码，我给你加了注释说明关键点：

output$allmodelsbychar <- renderTable({
  # 先把用户选择的分组变量名存起来
  group_col <- input$runallmodels
  
  # 用[[ ]]按字符串索引获取数据框的列，这是解决问题的关键！
  # by()函数会按分组变量的每个水平拆分数据框，然后对每个子集运行模型
  model_results <- by(
    data = df,
    INDICES = df[[group_col]],  # 这里不再用df$var，改用df[[group_col]]
    FUN = function(sub_df) {
      # 对每个分组子集运行mlogit模型
      mlogit_model <- mlogit(
        depvar ~ ic + oc | 0,
        data = sub_df,
        shape = "wide"
      )
      # 提取模型的系数统计量，转成数据框方便表格展示
      as.data.frame(summary(mlogit_model)$coefficients)
    }
  )
  
  # 把每个分组的结果合并成一个带分组标识的大表格
  # 这样展示的时候能清楚看到每个系数属于哪个分组
  combined_results <- do.call(rbind, lapply(names(model_results), function(group_name) {
    cbind(Group = group_name, model_results[[group_name]])
  }))
  
  # 可以给列名改得更友好一点（可选）
  colnames(combined_results) <- c("Group", "Estimate", "Std. Error", "z-value", "Pr(>|z|)")
  
  combined_results
})

几个重要的注意点 #

• 如果你用的是反应式数据框（比如从文件上传或者其他输入生成的df()），记得把代码里的df改成df()，比如by(data = df(), INDICES = df()[[group_col]], ...)。
• by()函数返回的是一个列表，每个元素对应一个分组的模型结果，我们用do.call(rbind, ...)把它们合并成一个统一的表格，这样在Shiny里渲染出来的表格会更清晰。
• 如果某个分组的样本量太小，可能会导致模型运行报错，你可以加个判断逻辑跳过这类分组，比如在FUN里先检查nrow(sub_df)是否符合要求。

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