r ggplot2-自定义文本而不是图例

Question

ggplot2中是否可以用自定义文本替换图例？ 我知道注释，但是我不想写在图表上，而是在图表的旁边（或下面）-确切地说明图例的位置，并以一种相当简单的方式进行绘制。

例如在这个简单的图表中

library(data.table)
library(ggplot2)
library(ggrepel)

id <- c(1:10) 
x1 <- sample(1:10, 10, replace=T)
x2 <- sample(1:10, 10, replace=T)
x3 <- sprintf("Point.%d",id)
df<-data.frame(id,x1,x2,x3)
dt<-data.table(df)
setkeyv(dt,c("id"))

p<-ggplot(data=dt,aes(x1,x2))+geom_point()+geom_text_repel(aes(label=x3))+
ggtitle("Graph")+xlab("X")+ylab("Y")+theme_bw()
p

我想在图表旁边写一些内容（简短）。 恐怕在ggplot2中这可能不容易实现，因为它超出了它的目的-但这对我有很大帮助。

Answer 1

这可能是最简单的方法，

gridExtra::grid.arrange(ggplot2::ggplot(), right = "this is a note")

默认情况下，文字会旋转90度，以明确使用textGrob覆盖此文字，

gridExtra::grid.arrange(ggplot2::ggplot(), right = grid::textGrob("this is a note"))