如何用pivot_longer将8列转为均值与标准差列并实现绘图？

你的问题出在两次pivot_longer操作会导致数据错位——第一次转换均值列后，第二次转换标准差列会让每个均值对应多个标准差，无法正确匹配到同一变量。正确的做法是一次完成长格式转换，同时拆分列名中的均值/标准差标识和变量组：

步骤1：正确转换数据格式 #

使用pivot_longer的names_pattern参数拆分列名，自动将均值和标准差对应到同一行：

library(tidyverse)

df <- groupedMel2 %>%
  pivot_longer(
    # 包含所有8列
    cols = c(meanHBrit, meanFBrit, meanHEu, meanFEu,
             sdHBrit, sdFBrit, sdHEu, sdFEu),
    # 将列名拆分为两部分：第一部分作为新列名（mean/sd），第二部分作为分组标识
    names_to = c(".value", "Group"),
    # 正则表达式匹配：(mean|sd)匹配前缀，(.*)匹配后续的变量组名
    names_pattern = "(mean|sd)(.*)"
  ) %>%
  # 重命名列名以符合你的需求
  rename(Mean = mean, Sd = sd)

转换后的数据框会包含Year、Group（对应HBrit/FBrit/HEu/FEu）、Mean、Sd列，每个年份-变量组对应一行，均值和标准差正确匹配。

步骤2：绘制趋势图 #

调整ggplot代码，用Group作为分组变量：

ggplot(data = df, aes(x = Year, y = Mean)) +
  geom_line(aes(colour = Group)) +
  # 用Group对应填充色，确保丝带和线条颜色匹配
  geom_ribbon(aes(ymin = Mean - Sd, ymax = Mean + Sd, fill = Group), alpha = 0.1) +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_blank(),
    axis.line = element_line(colour = "black")
  ) +
  scale_x_continuous(breaks = function(x) unique(floor(pretty(seq(0, (max(x) + 1) * 1.1))))) +
  labs(y = "traits")

关键说明 #

• names_pattern = "(mean|sd)(.*)"：正则表达式将列名拆分为前缀（mean/sd）和变量组名，.value参数会把前缀作为新的列名，自动将同一变量组的均值和标准差合并到一行。
• 避免两次pivot_longer：重复转换会导致数据行数膨胀，破坏均值与标准差的对应关系。

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