Как изменить размер шрифта в области geom_text() вне участка?

Question

Я хотел бы аннотировать сюжет, и я хотел бы, чтобы записка находилась за пределами участка. Я нашел this solution, и он работает для добавления заметки за пределы области графика, но я не могу понять, как изменить внешний вид ярлыка (что наиболее важно для моей цели - размер шрифта).

Вот минимальный пример из вышеупомянутого решения:

library (ggplot2) 
library(grid) 

df=data.frame(y=c("dog1","dog2","dog3"),x=c(12,10,14),n=c(5,15,20)) 
p <- ggplot(df, aes(x,y)) + geom_point() 

# Add the annotation 
p <- p + geom_text(aes(label = "Hello World!", x = 0, y = 0), vjust = 2, hjust = 1) 

# Code to override clipping 
gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[gt$layout$name == "panel"] <- "off" 
grid.draw(gt) 

В идеале, нота будет находиться в нижнем левом углу.

Answer 1

library (ggplot2) 
library(grid) 

df=data.frame(y=c("dog1","dog2","dog3"),x=c(12,10,14),n=c(5,15,20)) 
p <- ggplot(df, aes(x,y)) + geom_point() 

# Add the annotation 
p <- p + geom_text(size=8, colour="red", aes(label = "Hello World!", x = 0, y = 0), vjust = 2.5, hjust = 1) 

# Code to override clipping 
gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[gt$layout$name == "panel"] <- "off" 
grid.draw(gt)