如何在grid视口的R基础绘图中正确使用原生坐标标注？

你的代码核心错误是调用baseViewports()后，错误地引用了vps$vps$inner——baseViewports()返回的列表直接包含inner、figure、plot三个视口对象，无需额外的vps$vps层级。修正后即可让grid的"native"坐标与barplot的原生坐标自动对齐，无需手动转换。

修正后的完整代码 #

library(gridBase)
library(grid)

# 推送目标grid视口，确定base绘图的位置和尺寸
pushViewport(viewport(x = .4, y = .4, width = .6, height = .6))

# 让base绘图适配当前grid视口的边界
par(plt = gridPLT())
# 绘制条形图并获取柱子的x坐标
xpos <- barplot(c(7,8,9,5))   

# 获取base绘图对应的三层视口：inner -> figure -> plot
vps <- baseViewports()
# 依次推送这三个视口，此时grid的"native"坐标将与base绘图坐标对齐
pushViewport(vps$inner, vps$figure, vps$plot)

# 标注标签，x用barplot返回的原生坐标，y设为柱子底部上方1行的位置
grid.text(c("A", "B", "C", "D"), 
          x = unit(xpos, "native"), 
          y = unit(0, "native") + unit(1, "lines"),
          col = "red")

# 弹出所有视口，恢复初始状态
popViewport(0)

关键说明 #

• baseViewports()会捕捉当前活跃的base绘图设备的坐标系统，返回的三个视口对应base绘图的不同层级：
  • inner：对应设备的整个绘图区域
  • figure：对应base中par("fig")定义的区域
  • plot：对应base中par("plt")定义的实际绘图区域（即条形图的坐标轴范围）
• 推送这三个视口后，grid的"native"单位将直接映射到base绘图的原生坐标（即barplot的x、y轴刻度范围），因此可以直接用unit(xpos, "native")定位柱子的x坐标，无需手动转换。

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