r - ggplot : add multiline text annotation outside of plot

Question

我想在 ggplot 的绘图区域外添加一个包含 10 条独立堆叠线的文本框。我的文本是:t = c("a=1", "b=2", "c=3", ... , "j=10") 但这些标签独立于data.frame 是我制作的原始 ggplot。如何在绘图区域外添加 10 行？

例如，我想在下图右侧的矢量 t 周围添加一个文本框:

df = data.frame(y=rnorm(300), test=rep(c(1,2,3),each=100))
t = c("a=1", "b=2", "c=3", "d=4", "e=5", "f=6", "g=7", "h=8", "i=0", "j=10")
p <- ggplot(df, aes(x=factor(test), y=y))
p <- p + geom_violin() + geom_jitter(height=0, width=0.1)
p <- p + theme(legend.title=element_blank(), plot.margin=unit(c(0.1, 3, 0.1, 0.1), "cm"))
p

Answer 1

尝试

library(gridExtra)
grid.arrange(p, right = tableGrob(matrix(t,ncol=1),
             theme = ttheme_minimal(padding = unit(c(3,1),"line"))))