r - 将 grob 添加到 R 中的基本图

Question

我想将我使用splitTextGorb从包构建的多行文本添加RGraphics到基本图。我尝试了以下方法，但这不起作用（即文本未显示在图上）

layout(matrix(c(1,2), nrow=2, byrow=TRUE), heights = c(1,1.5))    
plot(...)
grob = splitTextGrob("This is my text")
plot.new()
vp.BottomRight <- viewport(height=unit(.5, "npc"), width=unit(0.5, "npc"), 
                       just=c("left","top"), 
                       y=0.5, x=0.5)
print(grob, vp = vp.BottonRight)

我知道这mtext是将文本添加到基础图的一个选项，但我想splitTextGrob专门使用它，因为它提供了一些灵活性，mtext或者grid.text()没有。

任何帮助，将不胜感激。谢谢！

Answer 1

这使用 gridBase 包将文本添加到绘图的当前视口。

library(RGraphics)
library(gridExtra)
library(gridBase)


layout(matrix(c(1,2), nrow=2, byrow=TRUE))

# First base plot
plot(1:10)

# Grid regions of base plot
vps <- baseViewports()
pushViewport(vps$inner, vps$figure, vps$plot)

# Text grob
grob <-  splitTextGrob("This is my text")
vp.BottomRight <- viewport(height=unit(.1, "npc"), width=unit(0.1, "npc"), 
                       just=c("left","top"), 
                       y=0.2, x=0.8 )
# Add text grob
pushViewport(vp.BottomRight)
grid.draw(grob)

upViewport(4) 


# Second plot
plot(1:10)
vps <- baseViewports()
pushViewport(vps$inner, vps$figure, vps$plot)
pushViewport(vp.BottomRight)
grid.draw(grob)

Answer 2

您将希望grid.draw()用于 grob 和 gTree 对象。

grid.text()仅适用于文本和绘图表达式。