r - 使用网格修改 vcd::mosaic 图

Question

我想用来grid修改我用vcd包创建的马赛克图。具体来说，我想添加精确定位的线段。这是一个最小的例子：

library(vcd)
myDF <- expand.grid(fac1 = c('a', 'b', 'c', 'a'), fac2 = c('y', 'z'))
mosaic(fac2 ~ fac1, data = myDF, pop = FALSE)

结果是这个情节：

我想用来grid.segments()在“fac2”标签下绘制一个水平线段，与绘制的单元格一样宽。seekViewport()如果我可以使用导航到包含“fac2”标签的视口，这将很简单。但我不能。这是问题所在：

> getNames()
> [1] "rect:fac1=a,fac2=y" "rect:fac1=a,fac2=z" "rect:fac1=b,fac2=y" "rect:fac1=b,fac2=z" 
  [5] "rect:fac1=c,fac2=y" "rect:fac1=c,fac2=z" "GRID.text.1"        "GRID.text.2"        
  [9] "GRID.text.3"        "GRID.text.4"        "GRID.text.5"        "GRID.text.6"        
 [13] "GRID.text.7" 

当我运行seekViewport("cell:GRID.text.2")或类似的东西时，我收到一条错误消息：

Error in grid.Call.graphics(L_downviewport, name$name, strict) : 
  Viewport 'cell:GRID.text.2' was not found

（“单元格：”前缀是vcd视口命名方案的一部分。相比之下，类似的命令seekViewport("cell:fac1=a,fac2=y")可以完美地工作。）

有没有办法导航到包含“fac2”标签的视口？如果不是，那么在该标签下方精确定位线段的最佳方法是什么？

Answer 1

在上面的评论中，@user20650提供了必要的信息。除其他外，我原始帖子中的代码存在问题，因为getNames()返回的是 grob 名称，而不是视口名称。

画线段最简单的方法就是像上图那样画图，然后

nn <- seekViewport("margin_top")  ## Drill down to the viewport[margin_top]
grid.segments(0, .5, 1, .5)
upViewport(nn)                    ## Return to top level viewport, here viewport[ROOT]

结果是这个情节：