在ggplot2中叠加多变量折线图到柱状图时遇‘HC未找到’错误

核心错误点 #

1. geom_line调用语法错误：你误写了数据框名称（hc2应为line2），且未通过data=参数指定折线图数据源
2. 颜色映射错误：HC是line2中的分组变量，需放入aes()内部做数据映射，而非直接作为colour参数值（否则ggplot会将其视为全局变量，导致找不到对象）
3. 折线分组缺失：需通过group=HC指定按HC分组绘制不同折线，避免多条线混为一体

修正后完整代码 #

1. 绘制基础柱状图 #

bar = read.csv("bar.csv", header = TRUE)
bar2 = df %>% 
  gather(desc, value, c(-Station, -Treatment)) %>% 
  separate(desc, c("Stat", "Var")) %>% 
  spread(Stat, value)

# 注意ggplot的+号要放在行尾，否则会触发语法报错
xx = ggplot(bar2, aes(x = Var, y = Avg, ymin = Avg-Std, ymax = Avg+Std)) + 
  facet_wrap(~Station) + 
  geom_bar(colour = "black", stat = "identity", position = "dodge", width = 0.65) + 
  geom_errorbar(colour = "black", position = position_dodge(0.65), width = 0.4) + 
  theme_bw() + 
  scale_y_continuous(expand = c(0,0))

2. 叠加折线图 #

line = read.csv("line.csv", header = TRUE)
line2 = line %>% 
  gather(desc, value, c(-Station, -HC, -Treatment)) %>% 
  separate(desc, c("Stat", "Var")) %>% 
  spread(Stat, value)

# 正确叠加折线的代码
xx + geom_line(data = line2, aes(x = Var, y = Avg, colour = HC, group = HC))

额外优化建议 #

• 若要给折线添加误差线，可追加：

  + geom_errorbar(data = line2, aes(ymin = Avg-Std, ymax = Avg+Std, colour = HC), width = 0.3)
  

• 自定义折线颜色可使用：

  + scale_colour_manual(values = c("HC组1" = "#FF5733", "HC组2" = "#33FF57"))
  

• 确保bar2与line2的Var、Station变量取值完全一致，否则折线无法和柱状图对齐

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