R使用ggplot绘制按数据集原始顺序排列的时间序列图问题

问题根因 #

你现有代码的问题根源是date列为字符类型，ggplot会默认将其识别为离散分类变量，所有属于同一年份的观测都会被映射到x轴的同一个坐标点上，才会出现聚合堆叠的情况，无法按照原始数据的先后顺序排布。

解决方案 #

你需要新增一个连续数值变量作为x轴的映射，用来标记每条观测在原数据集的先后顺序，再自定义x轴刻度标签仅展示对应年份即可。因为连续型数值变量会被ggplot按数值大小依次排布x轴位置，不会出现同值聚合的问题，完全匹配你的需求。

完整可运行代码 #

library(ggplot2)

# 原始数据集
TimeSeries <- data.frame(
  date = c("2013","2013","2013","2014","2014","2015","2015","2016", "2016","2017","2017"), 
  score = c(-0.333, 0.500, 0.000, 0.333, -0.500, 0.777, -0.450, 0.667, -0.011, 0.111, -0.145)
)

# 新增观测序号列，对应原始数据的先后顺序
TimeSeries$obs_id <- seq_len(nrow(TimeSeries))
# 统计每个年份首次出现的观测序号，作为x轴的刻度位置
x_breaks <- tapply(TimeSeries$obs_id, TimeSeries$date, min)

# 绘图代码
ggplot(TimeSeries, aes(x = obs_id, y = score)) + 
  geom_line() + 
  scale_x_continuous(
    breaks = x_breaks,
    labels = names(x_breaks),
    name = "date"
  )

效果说明 #

运行代码后生成的图表会严格遵循原始数据顺序排布所有观测：2013年的3个观测会依次分布在x轴的1、2、3位置（对应2013到2014标签的区间范围内），所有观测点首尾连接成连续折线，x轴仅在每年第一个观测的位置显示年份标签，完全符合预期。

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