宽格式数据转趋势线：ggplot复现Excel图表遇阻求助

你用宽格式数据直接绘图，但ggplot的设计逻辑依赖长格式数据——每一行对应一个(x,y)观测点，同时需要一个分组列区分不同线条。Excel可直接识别宽格式列作为系列，但ggplot不支持这种方式，这是导致图表不符合预期的根本原因。

1. 转换数据格式 #

用tidyr::pivot_longer()把宽格式转成ggplot需要的长格式，示例如下（匹配你提到的“每行对应一条线”的数据结构）：

library(tidyr)
library(ggplot2)

# 模拟你的宽格式数据（线条名称 + 各x值对应的y值）
wide_df <- data.frame(
  Series = c("Series A", "Series B", "Series C"),
  "2020" = c(12, 18, 9),
  "2021" = c(15, 22, 14),
  "2022" = c(20, 25, 18)
)

# 转换为长格式
long_df <- pivot_longer(
  wide_df,
  cols = -Series,          # 排除线条名称列
  names_to = "Year",       # 新的x轴列名
  values_to = "Value"      # 新的y轴列名
)

# 把x轴列转为数值型（如果原始是字符格式的年份/刻度）
long_df$Year <- as.numeric(long_df$Year)

2. 基于长数据绘图 #

用转换后的长数据绘制趋势线，指定分组和颜色映射：

ggplot(long_df, aes(x = Year, y = Value, color = Series, group = Series)) +
  geom_line(linewidth = 1) +  # 控制线条粗细
  geom_point(size = 2) +      # 可选：添加数据点标记
  labs(
    x = "年份",
    y = "数值",
    color = "系列名称"
  ) +
  theme_bw()

• 如果x轴是日期类型，需将转换后的x列转为日期格式（as.Date()/as.POSIXct()）
• 若要复刻Excel的自定义配色/线条样式，用scale_color_manual()或scale_linetype_manual()指定：

scale_color_manual(values = c("Series A" = "#FF0000", "Series B" = "#0000FF", "Series C" = "#008000"))

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