在R中使用ggplot绘制多时间序列图：自定义全球与国家线条样式

需求说明 #

数据集包含字段：year（2000-2020年）、incidence（年度疾病发病数）、location（30个地区：29个国家+1个全球汇总）。需绘制多时间序列图，满足：

• 全球汇总线条为黑色虚线
• 其余国家线条采用彩虹配色方案且为实线

原代码问题 #

你提供的代码存在语法错误（括号未闭合），且未实现自定义线条样式与配色逻辑：

# 原代码语法错误示例
ggplot(df, aes(x=year, y=incidence) + 
  geom_line(aes(color=location)

完整实现代码 #

通过分层绘制分离国家与全球数据，分别设置样式：

library(ggplot2)

# 拆分数据集：国家数据与全球汇总数据
df_countries <- df[df$location != "全球汇总", ]
df_global <- df[df$location == "全球汇总", ]

ggplot() +
  # 绘制所有国家的时间序列：彩虹配色、实线
  geom_line(data = df_countries, 
            aes(x = year, y = incidence, color = location),
            linetype = "solid") +
  # 绘制全球汇总的时间序列：黑色虚线（单独设置，不参与颜色映射）
  geom_line(data = df_global, 
            aes(x = year, y = incidence),
            color = "black", 
            linetype = "dashed",
            linewidth = 1) +  # 可选：加粗全球线条增强辨识度
  # 应用彩虹配色方案
  scale_color_rainbow(name = "国家/地区") +
  # 自定义坐标轴与标题
  labs(x = "年份", 
       y = "疾病发病数", 
       title = "2000-2020年各地区疾病发病数趋势") +
  theme_minimal()

关键逻辑说明 #

• 分层绘制：将国家数据与全球数据分开处理，避免样式冲突
• 配色控制：用scale_color_rainbow()自动为不同国家分配彩虹色系
• 样式独立：全球汇总线条直接指定color和linetype，不绑定location的颜色映射

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