ggplot2多时间序列图：横轴日期显示优化求助

要让横轴显示更多日期并切换为月度格式，核心是用ggplot2的scale_x_date()函数自定义刻度规则和日期显示格式，配合scales包的工具实现。

步骤1：加载必要的包 #

首先确保加载scales包（用于日期格式化）：

library(scales)

步骤2：修改ggplot代码，添加自定义横轴设置 #

在你的ggplot代码中加入scale_x_date()，通过参数控制刻度间隔和显示格式：

ggplot(df, aes(x = date, y = value)) + 
  geom_line(aes(color = variables), linewidth = 1) +
  scale_color_manual(values = c("cornflowerblue","orange","red2")) +
  # 自定义时间轴
  scale_x_date(
    date_breaks = "1 year",  # 刻度间隔：每年一个刻度，可改成"6 months"（半年）或"3 months"（季度）
    date_format = "%Y-%m",   # 日期显示格式：年-月，也可用"%Y %b"显示"2000 Jan"这类格式
    guide = guide_axis(angle = 45)  # 旋转标签45度，避免重叠
  ) +
  theme_light(base_size=15)+
  labs(y= "Spillover effects", x = "time")

参数说明 #

• date_breaks：设置刻度的时间间隔，根据你的数据密度调整，比如数据跨度大（1997-2023），用"1 year"或"2 years"比较合适；如果需要更细的刻度，用"6 months"
• date_format：
  • %Y-%m → 显示为2000-01
  • %Y %b → 显示为2000 Jan
  • %m/%Y → 显示为01/2000
    可根据需求选择格式
• guide_axis(angle = 45)：当标签较多时，旋转角度避免横向重叠，提升图表可读性

完整代码整合 #

把所有部分整合后的代码如下：

require(ggplot2)
library(tidyr)
library(dplyr)
library(scales)  # 新增加载scales包

df <- data_for_use_all_spills %>%
  select(date, `TSI (TVP-VAR)`, `GPR to inflation (TVP-VAR)`, `CPU to inflation (TVP-VAR)`) %>%
  gather(key = "variables", value="value", -date)

ggplot(df, aes(x = date, y = value)) + 
  geom_line(aes(color = variables), linewidth = 1) +
  scale_color_manual(values = c("cornflowerblue","orange","red2")) +
  scale_x_date(
    date_breaks = "1 year",
    date_format = "%Y-%m",
    guide = guide_axis(angle = 45)
  ) +
  theme_light(base_size=15)+
  labs(y= "Spillover effects", x = "time")

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