R语言如何实现数据框数值对应行中位数绘制箱线图

实现方法 #

你不需要手动构造对齐长度的宽表，只要把原始数据转换为分组长格式即可，R的箱线图原生支持按分组变量绘制，适配不同分组的样本量差异。

方法1：基础R实现（无需安装额外包）

# 提取原始数值列（可根据你的实际列名/列索引调整）
val_cols <- df[, c("V1", "V2", "V3")]
# 构造长格式数据：每一行对应一个原始数值+它所属行的中位数
df_long <- data.frame(
  median = rep(df$median, each = ncol(val_cols)),
  value = as.vector(t(val_cols))
)
# 直接按中位数分组绘制箱线图
boxplot(value ~ median, data = df_long, xlab = "median", ylab = "原始数值")

方法2：tidyverse风格实现（代码更简洁易维护）

library(tidyverse)
# 宽表转长表，保留中位数作为分组字段
df_long <- df %>%
  pivot_longer(cols = starts_with("V"), names_to = "tmp_col", values_to = "value") %>%
  select(median, value)
# 绘图
boxplot(value ~ median, data = df_long, xlab = "median", ylab = "原始数值")

两种方法都兼容任意长度的分组数值，不需要手动补值对齐，哪怕你原始数据有上百列、上万个行都可以直接使用，只要调整val_cols或者pivot_longer的列选择规则适配你的实际数据结构即可。

内容的提问来源于stack exchange，提问作者Mike de Groot