如何在ggplot2中基于归一化设备坐标在绘图区域外绘制矩形？

问题背景 #

需要在绘图区域外绘制一个横向范围覆盖整个设备10%到20%宽度的矩形。Base R中可通过grconvertX()将NDC坐标转换为用户坐标实现，但ggplot2中手动填入转换后的用户坐标缺乏灵活性，且grid::unit的归一化父坐标无法适配长y轴标签导致的设备空间变化。

解决方案 #

可以通过两种方式实现需求，分别适配不同的使用场景：

方法1：直接用grid包添加设备坐标矩形 #

ggplot基于grid绘图系统，绘制完ggplot图形后，可直接调用grid函数添加基于NDC的矩形，无需转换用户坐标：

library(ggplot2)
library(grid)

# 示例数据
dat <- data.frame(y = c("A", "B", "VeryVeryLoooongTitle"),
                  x = c(1:3))

# 绘制基础ggplot图，关闭裁剪以显示绘图区外元素
p <- ggplot(dat, aes(x = x, y = y)) +
  geom_point() +
  coord_cartesian(clip = "off")

# 渲染图形
print(p)

# 添加横向覆盖设备10%-20%的矩形
grid.rect(
  xleft = unit(0.1, "ndc"),   # 设备左起10%位置
  xright = unit(0.2, "ndc"),  # 设备左起20%位置
  ybottom = unit(0.5, "npc"), # y轴位置（基于绘图面板视口）
  ytop = unit(1.5, "npc"),
  gp = gpar(fill = "blue", alpha = 0.5) # 设置填充色和透明度
)

方法2：将NDC坐标转换为用户坐标后用geom_rect添加 #

先通过grconvertX()完成NDC到用户坐标的转换，再用geom_rect添加图形，适合需要将矩形整合到ggplot对象中的场景：

library(ggplot2)

# 示例数据
dat <- data.frame(y = c("A", "B", "VeryVeryLoooongTitle"),
                  x = c(1:3))

# 先绘制基础图并初始化设备
p <- ggplot(dat, aes(x = x, y = y)) +
  geom_point() +
  coord_cartesian(clip = "off")
print(p)

# 将NDC坐标转换为用户坐标
x_min <- grconvertX(0.1, from = "ndc", to = "user")
x_max <- grconvertX(0.2, from = "ndc", to = "user")

# 添加矩形到ggplot对象
p + geom_rect(
  xmin = x_min, xmax = x_max,
  ymin = 0.5, ymax = 1.5,
  fill = "blue", alpha = 0.5
)

关键说明 #

• ndc（归一化设备坐标）的范围是0到1，对应整个设备窗口的左上角到右下角，不受绘图面板、轴标签等元素的影响，完美适配长y轴标签的场景。
• coord_cartesian(clip = "off")必须开启，否则绘图区域外的元素会被裁剪隐藏。

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