如何修改ggplot绘图中绿色线条样式及对应图例显示？

API 探路者

2026-6-30

解决方案

要实现你需要的两处调整，只需对代码做以下关键修改，确保图例与实际线条样式匹配：

修改后的完整代码

# 调整threshold数据框，将high_pass的线型改为dashed
threshold <- data.frame(
  x = c(2, 2.7), 
  group = c("pass", "high_pass"), 
  color = c("red", "darkgreen"), 
  line = c("dashed", "dashed"),  # 将high_pass的solid替换为dashed
  stringsAsFactors = FALSE
)

group.colors <- c(
  "Overall" = "#FFD580", 
  "ELA" = "#CBC3E3", 
  "Math" = "lightyellow", 
  "Essential Skills" = "lightpink"
)

# 绘制图形
ggplot(df, aes(x = score, y = ..density.., fill = area)) +
  geom_histogram(bins = 12, color = "black") +
  geom_density(alpha = 0.2) +
  facet_grid(area~cohort) +
  scale_fill_manual(values = group.colors) +
  # 在geom_vline的aes中同时映射颜色和线型到group变量
  geom_vline(aes(xintercept = x, colour = group, linetype = group), 
             data = threshold, show.legend = TRUE) +
  scale_color_manual(
    name = "statistics", 
    values = c(pass = "red", high_pass = "darkgreen")
  ) +
  # 添加线型的手动映射，确保图例与实际线条一致
  scale_linetype_manual(
    name = "statistics", 
    values = c(pass = "dashed", high_pass = "dashed")
  ) +
  labs(
    x = "Overall Score", 
    y = "Density", 
    title = "Barplots of Average Score Distributions by Year and Domain"
  )

关键改动说明

调整数据源：修改threshold数据框中high_pass对应的line值，从solid改为dashed，确保基础数据的线型设置正确。
绑定线型映射：在geom_vline的aes参数中新增linetype = group，让线型与颜色共同绑定到group变量，使图例同时展示颜色和线型信息。
统一图例样式：添加scale_linetype_manual手动指定每个分组的线型，保证图例中的high_pass项显示为绿色虚线，与图形中的线条样式完全匹配。