r ggplot2 - benutzerdefinierter Text anstelle der Legende

Question

Ist es in ggplot2 möglich, eine Legende durch einen benutzerdefinierten Text zu ersetzen? Ich weiß über kommentieren, aber ich möchte nicht in ein Diagramm schreiben, sondern neben es (oder darunter) - genau, wo eine Legende wäre und es auf eine relativ einfache Art und Weise tun.

z. in diesem einfachen Diagramm

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 

Ich möchte etwas (kurz) um die Grafik schreiben daneben. Ich befürchte, dass dies in ggplot2 nicht einfach möglich ist, da es über seinen Zweck hinausgeht - aber mir sehr helfen würde.

Answer 1

könnte dies der einfachste Weg, sein

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

durch Standardtext 90 Grad gedreht wird, dies explizit eine textGrob verwenden zu überschreiben,

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