使用ggplot2绘制时间序列折线图却生成柱状图的问题排查

问题描述 #

尝试使用以下代码绘制时间序列折线图：

ggplot(my_data, aes(Period_end_date, Value, group = `Policy Year`, colour = `Policy Year`)) + 
  geom_line() + 
  theme_minimal()

实际生成的图表呈现类柱状图效果，而非预期的折线图。

数据基本信息：

• Policy Year：factor类型
• Period_end_date：date类型
• Value：数值型

数据样例：

print(my_data)
# A tibble: 1,000,193 × 16
`Policy Year` `Row Labels` Period_end_date Value `Claim status` Location `Rule Number` `Single Rule`
 <fct>         <chr>        <date>          <dbl> <chr>          <chr>    <chr>         <chr>               
1 2017          243719/01    2017-03-20       1000 CLOSED         Croatia  3.8.2         3.8.2               
2 2017          243719/01    2017-04-20       1000 CLOSED         Croatia  3.8.2         3.8.2               
3 2017          243719/01    2017-05-20       1000 CLOSED         Croatia  3.8.2         3.8.2    

问题原因 #

数据中存在大量重复的Policy Year+Period_end_date组合：每个日期和政策年度下对应多条Row Labels记录，且这些记录的Value相同。当调用geom_line时，同一时间点会绘制大量重叠的线段，视觉上堆积成类似柱状的效果。

解决方案 #

方案1：聚合数据后绘制（推荐） #

若需要展示每个政策年度在各日期的整体Value趋势，先按Policy Year和Period_end_date分组聚合，计算Value的统计量（如求和、均值）：

library(dplyr)

# 按政策年度和日期分组，计算Value总和（可替换为mean/median等）
aggregated_data <- my_data %>%
  group_by(`Policy Year`, Period_end_date) %>%
  summarise(total_value = sum(Value), .groups = "drop")

# 绘制聚合后的折线图
ggplot(aggregated_data, aes(Period_end_date, total_value, group = `Policy Year`, colour = `Policy Year`)) + 
  geom_line() + 
  theme_minimal()

方案2：保留原始数据调整视觉效果 #

若需要保留每条Row Labels的趋势，可通过细化分组和降低透明度避免重叠：

# 按政策年度+Row Labels组合分组，降低线条透明度
ggplot(my_data, aes(Period_end_date, Value, group = interaction(`Policy Year`, `Row Labels`), colour = `Policy Year`)) + 
  geom_line(alpha = 0.2) +  # 透明度调低，减少重叠视觉干扰
  theme_minimal()

额外验证步骤 #

• 确认日期类型：执行class(my_data$Period_end_date)，若结果不是Date，用my_data$Period_end_date <- as.Date(my_data$Period_end_date)转换。
• 检查缺失值：执行summary(my_data$Period_end_date)，确认无异常日期或缺失值。

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