在Shiny应用中通过selectInput自定义ggplot2的X轴及分面顺序

核心问题根源 #

你用factor()设置levels后仍显示字母序，本质是因子水平的设置时机或数据源不对——要么是在筛选前就固定了水平（但筛选后数据子集的水平可能和用户选择顺序不匹配），要么是没有用用户实际选择的选项顺序作为levels。

具体实现步骤及代码示例 #

1. 捕获用户筛选的选项顺序

Shiny的多选控件（比如selectInput、pickerInput）会保留用户选择的先后顺序，直接通过input$你的筛选控件ID就能拿到这个顺序列表。

2. 在筛选后的数据中重构因子

必须在数据筛选完成后，基于用户选择的顺序，把要用于X轴和分面的列转换成因子，确保levels严格对应用户选择的顺序。

# 服务器端反应式处理数据
filtered_data <- reactive({
  # 确保上传文件已存在
  req(input$annotation_file, input$dataset_file)
  
  # 读取并合并数据（替换成你已有的读取逻辑）
  annot_df <- read.csv(input$annotation_file$datapath)
  data_df <- read.csv(input$dataset_file$datapath)
  merged_df <- merge(data_df, annot_df, by = "sample_id") # 按样本ID合并
  
  # 获取用户筛选的选项顺序（替换成你的筛选控件ID）
  user_selected_order <- input$filter_select
  
  # 处理X轴列的因子顺序
  if (!is.null(input$x_axis) && length(user_selected_order) > 0) {
    merged_df[[input$x_axis]] <- factor(merged_df[[input$x_axis]], levels = user_selected_order)
  }
  
  # 处理分面列的因子顺序（如果有分面需求）
  if (!is.null(input$facet_col) && length(user_selected_order) > 0) {
    merged_df[[input$facet_col]] <- factor(merged_df[[input$facet_col]], levels = user_selected_order)
  }
  
  # 应用筛选逻辑（保留用户选择的样本/分组）
  final_df <- merged_df[merged_df[[input$filter_col]] %in% user_selected_order, ]
  final_df
})

3. 绘图时直接使用重构后的因子列

ggplot会自动识别因子的levels顺序作为轴和分面的展示顺序，也可以额外设置scale_x_discrete()强制对齐：

output$boxplot <- renderPlot({
  req(filtered_data())
  plot_data <- filtered_data()
  
  ggplot(plot_data, aes(
    x = .data[[input$x_axis]],
    y = .data[[input$y_axis]],
    color = .data[[input$color_col]]
  )) +
    geom_boxplot(width = 0.6) +
    # 分面设置（如果启用）
    facet_wrap(~.data[[input$facet_col]]) +
    # 可选：强制X轴标签顺序与因子levels完全一致
    scale_x_discrete(breaks = levels(plot_data[[input$x_axis]])) +
    theme_bw()
})

关键注意事项 #

• 如果用shinyWidgets::pickerInput，要确保开启options = list('actions-box' = TRUE)，否则可能丢失选择顺序
• 不要在数据初始读取时就固定因子水平，必须在筛选操作完成后再设置，因为筛选后的子集顺序才是用户想要的展示顺序
• 若筛选控件是动态生成的（基于注释文件列），要保证控件的choices和用户选择的顺序能被正确捕获

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