如何在ggplot折线图底部（x始于2020-05-01）添加方形及文本？

你可以通过ggplot2的geom_rect（绘制方形）配合geom_text（添加文本）来实现需求，关键是匹配x轴的yearmon格式，并调整元素位置避免被裁剪。以下是修改后的完整代码：

library(ggplot2)
library(zoo)

# 原始数据
dat = data.frame(
  date = as.yearmon(as.Date(c('2020-01-01', '2021-01-01', '2022-01-01', 
                              '2023-01-01', '2024-01-01', '2025-01-01', 
                              '2026-01-01','2027-01-01', '2028-01-01'))),
  value = 1:9
)

# 目标标记日期，转换为yearmon格式
target_date <- as.yearmon(as.Date("2020-05-01"))

ggplot(data = dat) +
  geom_line(aes(x = date, y = value)) +
  # 绘制黑色方形标记，调整x范围控制方形大小，y范围放在图表底部
  geom_rect(
    aes(xmin = target_date - 0.02, xmax = target_date + 0.02, 
        ymin = -0.5, ymax = 0.5),
    fill = "black", color = NA
  ) +
  # 在方形右侧添加文本，调整x偏移量控制距离，hjust=0左对齐
  geom_text(
    aes(x = target_date + 0.1, y = 0),
    label = "自定义说明文本", hjust = 0, size = 4
  ) +
  # 固定y轴范围，避免底部元素影响图表缩放；clip="off"让绘图区域外的元素显示
  coord_cartesian(ylim = c(1, 9), clip = "off") +
  # 调整底部边距，避免文本被截断
  theme(plot.margin = margin(b = 25))

关键参数说明： #

• target_date：将2020-05-01转换为与x轴一致的yearmon格式，确保坐标匹配
• geom_rect的xmin/xmax：通过加减小数值（如0.02）控制方形宽度，yearmon以年为单位，0.02对应约7天跨度
• coord_cartesian(clip = "off")：关闭绘图区域裁剪，让底部的方形和文本正常显示
• plot.margin：增加底部边距，防止文本被图表边界截断

如果想用实心方形点替代矩形，也可以用geom_point实现：

ggplot(data = dat) +
  geom_line(aes(x = date, y = value)) +
  geom_point(aes(x = target_date, y = 0), shape = 15, size = 5, color = "black") +
  geom_text(aes(x = target_date + 0.1, y = 0), label = "自定义文本", hjust = 0) +
  coord_cartesian(ylim = c(1, 9), clip = "off") +
  theme(plot.margin = margin(b = 25))

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