r - 获取ggplot2 grob的“npc”坐标

Question

R 语言中用于生成图形的网格包使用所谓的“正常父坐标”（npc）来定位图形对象（“ grobs”）。是否可以获得 a 的 npc 坐标ggplot2 grob？这对于在各个方面绘制线（用于连接数据点）有很大帮助（ggplot，在各个方面的点之间绘制线包含一个解决方案，但这对于初学者来说很难遵循）

library(ggplot2)
library(grid)

# Generate some sample data
df <- data.frame(y=c(1,2,3),x=1,Set=LETTERS[1:3])

# Plot
ggplot(df,aes(x,y)) + 
  geom_point(aes(fill=Set),color="black",shape=21,size=3) + 
  facet_grid(~Set)

# It is easy to list the grobs, but I can't see their npc coordinates
grid.ls(grid.force())