嘿，这个问题太常见了！我刚用ggplot画时间序列的时候也被挤成一团的日期标签搞疯过，给你几个实用的调整方案，一步步让你的图表变得清爽易读：

1. 自定义日期刻度间隔与格式 #

最直接的方法是用scale_x_date()来控制标签的显示频率和格式，避免所有日期都挤在轴上。比如根据你的数据时间跨度，选择每周、每月或者每季度显示一个标签：

library(ggplot2)
library(dplyr)

# 你的原始数据处理部分
lst <- list(RRA_36, RRA_48, RRA_60, RRA_72)
df <- lst %>% bind_rows(.id = "Window_Size")

# 绘制图表并自定义日期轴
ggplot(df, aes(x = Horizon, y = RRA, color = Window_Size)) +
  geom_line() +
  # 设置每2周显示一个标签，格式为「年-月-日」
  scale_x_date(
    date_breaks = "2 weeks",  # 可根据数据调整间隔，比如"1 month"、"3 months"
    date_labels = "%Y-%m-%d"  # 自定义日期格式，比如"%b %Y"会显示「Jan 2024」
  )

2. 旋转标签并调整对齐 #

如果调整间隔后还是有点挤，旋转x轴标签并调整对齐方式，能有效避免重叠：

ggplot(df, aes(x = Horizon, y = RRA, color = Window_Size)) +
  geom_line() +
  scale_x_date(date_breaks = "2 weeks", date_labels = "%Y-%m-%d") +
  # 旋转标签45度，右对齐防止超出图表边界，同时缩小字体
  theme(
    axis.text.x = element_text(
      angle = 45, 
      hjust = 1, 
      size = 8  # 根据需要灵活调整字体大小
    )
  )

3. 聚合日期到更大的时间单位 #

如果你的数据时间跨度很大（比如几年），可以把日期聚合到月份或季度，从根源上简化标签：

library(lubridate)  # 需要先安装这个包

df %>%
  # 将日期向下取整到月份
  mutate(Horizon_Month = floor_date(Horizon, "month")) %>%
  ggplot(aes(x = Horizon_Month, y = RRA, color = Window_Size)) +
  geom_line() +
  scale_x_date(date_breaks = "1 month", date_labels = "%Y-%m")

小提示：确保日期格式正确 #

如果你的Horizon列还不是日期类型，记得先转换：

df <- df %>% mutate(Horizon = as.Date(Horizon, format = "%Y-%m-%d"))

（格式参数根据你的原始日期格式调整，比如"%m/%d/%Y"）

通常组合使用「自定义刻度间隔 + 旋转标签」就能解决90%的日期轴密集问题，你可以根据自己的数据时间跨度灵活调整date_breaks的参数哦！

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