Добавление текста вне ggplot

Вы можете добавить текст и графику с помощью grobs . Прежде всего, вам нужно немного свободного места с правой стороны. Это возможно, когда вы тратите наценку в своих темах. Команда здесь: theme(plot.margin = unit(c(1,5,1,1),"cm")), после чего вы должны объявить, что вы хотите вставить.

График с увеличенным запасом (хорошо, так как фон белый, на самом деле невозможно увидеть увеличенный запас ... но он есть):

В вашем случае я вставил таблицу, так как это проще. Вы можете вставить текст, таблицы или фигуры с помощью grobs. Давайте сначала определим таблицу:

mytable<-cbind(c("variable_1","variable_2","variable_3"),c(0.5,1.5,3.5))

с annotion_costum() ggplot позволяет вставлять объекты в виде графики на графиках. Поскольку наша маржа достаточно высока, вы можете добавить таблицу за пределы графика.

Участок с добавленной таблицей:

В качестве последнего шага я нарисовал прямоугольник вокруг стола. Полный код:

library(gridExtra)
library(grid)
A <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
B <- c(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
C <- data.frame(A, B)

mytable<-cbind(c("variable_1","variable_2","variable_3"),c(0.5,1.5,3.5))
ggplot(data = C) + geom_point(mapping = aes(x = A, y = B)) + 
  labs(title = "Plot") + theme(plot.title = element_text(hjust = 0.5))+
  theme(plot.margin = unit(c(1,5,1,1),"cm"))+
  annotation_custom(tableGrob(mytable, rows=NULL), 
                    xmin=unit(11.5,"npc"),xmax = unit(14,"npc"),  ymin=3.7, ymax=7)
  grid.rect(x=unit(0.83,"npc"),y=unit(0.5,"npc") ,width = unit(0.22,"npc"), height = unit(0.16,"npc"), gp = gpar(lwd = 3, col="black", fill = NA))

Окончательное изображение: