在单页上放置多个ggplot图时,日期标签会重叠

library(patchwork)
library(ggplot2)

# 创建两个ggplot图
p1 <- ggplot(data, aes(x = date, y = value)) + geom_line() + scale_x_date(labels = date_format("%b %Y"))
p2 <- ggplot(data, aes(x = date, y = value)) + geom_line() + scale_x_date(labels = date_format("%b %Y"))

# 使用patchwork将两个图合并
p1 + p2

ggplot(data, aes(x = date, y = value)) + geom_line() + scale_x_date(labels = date_format("%b %Y")) +
  facet_wrap(~ variable, scales = "free_x")

ggplot(data, aes(x = date, y = value)) + geom_line() + scale_x_date(labels = date_format("%b %Y")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))