ggplot2时间轴显示优化咨询：设置季度/月度刻度及更多日期

使用R语言的ggplot2绘制图表时，横轴（时间轴）仅显示2000、2010、2020三个年份，无法展示季度或月度格式的完整日期。使用代码如下：

require(ggplot2)
df <- as.data.frame(data_for_use[, 1:18])

ggplot(df, aes(x = date, y = `Inflation spillovers`))+
            geom_area(fill = "4",     # colour of area
            alpha = 0.2,  # transparency of the area
            color ="red2" ,    # Line color
            lwd = 1.5,    # Line width
            linetype = 1)+ # Line type
            ylim(0, 125)+
            theme_light(base_size=15)

第一步：确保日期列格式正确 #

首先要确认date列是标准日期类型（Date或POSIXct），如果原始数据是字符型，先进行转换：

# 示例：假设日期格式为"YYYY-MM-DD"，用as.Date转换
df$date <- as.Date(df$date)

# 如果是其他格式，可使用lubridate包的函数（如ymd、mdy等）
# library(lubridate)
# df$date <- ymd(df$date)

第二步：自定义横轴刻度与格式 #

通过scale_x_date()函数控制横轴的刻度间隔和显示格式，以下是两种常见需求的实现：

1. 显示月度格式

设置刻度间隔为1个月，格式为年-月（%Y-%m）：

ggplot(df, aes(x = date, y = `Inflation spillovers`))+
  geom_area(fill = "4", alpha = 0.2, color ="red2", lwd = 1.5, linetype = 1)+
  ylim(0, 125)+
  theme_light(base_size=15)+
  scale_x_date(date_breaks = "1 month", date_labels = "%Y-%m")

若刻度过于密集，可将date_breaks改为"2 months"或"3 months"调整间隔。

2. 显示季度格式

设置刻度间隔为3个月，格式为年 季度（%Y Q%q）：

ggplot(df, aes(x = date, y = `Inflation spillovers`))+
  geom_area(fill = "4", alpha = 0.2, color ="red2", lwd = 1.5, linetype = 1)+
  ylim(0, 125)+
  theme_light(base_size=15)+
  scale_x_date(date_breaks = "3 months", date_labels = "%Y Q%q")

可选：调整标签避免重叠 #

如果横轴标签出现重叠，可添加旋转标签的设置：

ggplot(df, aes(x = date, y = `Inflation spillovers`))+
  geom_area(fill = "4", alpha = 0.2, color ="red2", lwd = 1.5, linetype = 1)+
  ylim(0, 125)+
  theme_light(base_size=15)+
  scale_x_date(date_breaks = "3 months", date_labels = "%Y Q%q")+
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

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