如何用ggplot绘制带每行标准差误差棒的中位数折线图

我来帮你搞定这个带中位数和标准差误差棒的图表绘制需求~

第一步：数据处理与准备 #

先修正你示例代码里的小问题，你给的示例数据框代码有个小错误，正确的处理方式如下：

# 示例数据处理
myTable <- "1 -50 -52
2 -44 -51
3 -48 -50
4 -50 -49
5 -44 -49
6 -48 -49
7 -48 -49
8 -44 -48
9 -49 -48
10 -48 -45
11 -60 -48
10 -50 -48
11 -80 -47"
df <- read.table(text=myTable, header=FALSE)
# 给数据框设置列名
colnames(df) <- c("ID","Value1","Value2")

如果你是加载本地CSV文件，用你提供的代码就可以，记得后续补上列名（如果CSV本身没有表头的话）：

# 加载本地CSV数据
df <- read.csv(file="~/path/to/myFile.csv", header=FALSE, sep=",")
# 给数据框设置列名（根据你的实际列数调整）
colnames(df) <- c("ID","Value1","Value2") # 列名可以按需修改

第二步：计算每行的中位数和标准差 #

接下来我们要对每行（排除第一列ID）计算中位数和标准差，用apply()函数就能轻松实现：

# 计算每行的中位数（排除第一列ID）
row_medians <- apply(df[, -1], 1, median)
# 计算每行的标准差（排除第一列ID）
row_sd <- apply(df[, -1], 1, sd)
# 把计算结果整合到新的数据框里，方便后续绘图
plot_data <- data.frame(
  ID = df$ID,
  Median = row_medians,
  SD = row_sd
)

第三步：绘制图表（以ggplot2为例，风格贴近常见示例图） #

我用ggplot2包来绘制，它的可视化效果更灵活美观，先确保你已经安装了这个包：

# 如果没安装ggplot2先安装并加载
if (!require(ggplot2)) {
  install.packages("ggplot2")
  library(ggplot2)
}

# 绘制带误差棒的中位数图表
ggplot(plot_data, aes(x = factor(ID), y = Median)) +
  # 绘制标准差误差棒，width控制误差棒的横向宽度
  geom_errorbar(aes(ymin = Median - SD, ymax = Median + SD), width = 0.2) +
  # 绘制中位数点，size控制点的大小，color自定义颜色
  geom_point(size = 3, color = "steelblue") +
  # 添加标题和坐标轴标签，按需修改
  labs(
    title = "每行数据的中位数与标准差误差棒",
    x = "ID",
    y = "中位数"
  ) +
  # 设置简洁主题，让图表更清爽（可选，按需调整）
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    axis.title.x = element_text(size = 12),
    axis.title.y = element_text(size = 12)
  )

小提示 #

• 如果你需要更贴近你示例图的风格，可以调整颜色、点的形状、误差棒样式，比如把点换成柱状图（用geom_col()），或者修改颜色主题。
• 如果你的CSV里列数更多，只要保证apply(df[, -1], 1, ...)里的-1是排除第一列ID就行，代码会自动处理所有数值列。

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