如何修改ggplot2图例使其包含负值与正值？

我来帮你实现这个包含正负值的图例需求！首先我先把你提供的代码补全（因为GLOB_OBS_SVD的数据不全），然后一步步带你完成自定义图例的设置。

完整可复现代码 #

library(ggplot2)
library(tidyr)

# 补全数据确保代码可运行
YEAR <- c(1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969)
ATL <- c(0.9814819, 0.6158561, 0.1594867, -1.324053, -0.5223706, 0.4015643, -1.255614, 0.6481795, 0.1342264, -0.507981)
OBS <- c(-0.2040433, -0.2014844, -0.39053, 0.5320961, -0.870454, 0.7047542, 1.069224, -0.217602, 0.3252735, 1.419028)
GLOB_OBS_SVD <- c(-0.1309537, -1.074651, 2.5286819, 1.42356, -0.89012, 0.6789, -0.345, 1.234, -0.567, 0.890)

# 把宽格式数据转成长格式，并添加正负标记列
df <- data.frame(YEAR, ATL, OBS, GLOB_OBS_SVD) %>%
  pivot_longer(cols = -YEAR, names_to = "variable", values_to = "value") %>%
  mutate(value_sign = ifelse(value > 0, "正值", "负值"))

# 绘制带正负值图例的图表
ggplot(df, aes(x = YEAR, y = value, color = value_sign, group = variable)) +
  geom_line(size = 1) +
  geom_point(size = 2) +
  scale_color_manual(
    name = "数值类型",  # 自定义图例标题
    values = c("正值" = "#2ecc71", "负值" = "#e74c3c")  # 自定义正负颜色
  ) +
  labs(
    x = "年份",
    y = "数值",
    title = "按正负值区分的时间序列图"
  ) +
  theme_minimal()

关键步骤解释 #

1. 数据格式转换：用pivot_longer把原来的宽格式数据转成长格式，这样所有数值都集中在一列，方便统一判断正负属性。
2. 添加正负标记：通过mutate和ifelse生成value_sign列，自动给每个数值打上“正值”或“负值”的标签。
3. 映射颜色到正负标记：绘图时把color美学映射到value_sign，这样所有正值的线条/点会用同一种颜色，负值同理，图例就会显示我们需要的正负类别。
4. 自定义图例样式：用scale_color_manual可以修改图例的标题和颜色，你可以根据自己的需求替换颜色代码或者标题文字。

如果需要调整线条样式或者其他细节，直接修改geom_line或者theme相关参数即可~

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