Один из способов сделать это - написать текст напрямую, используя функцию text
.Поскольку вы не предоставляете свои данные, я проиллюстрирую некоторые встроенные данные, но вам нужно будет настроить размещение для вашего конкретного участка.
boxplot(Sepal.Width ~ Species, data=iris, ylim=c(1,5))
text(0.45,0.95, "1960-2002**\n2002-2012**\nt-test verb.", adj=c(0,0))
Часть adj=c(0,0)
предназначена для выравнивания текста по левому краю.
Если вы хотите поставить рамку вокруг текста, добавьте:
rect(0,0,1.2,1.6)
Вы также можете сделать это слегенда и избавиться от пробела, указав координаты x, y легенды.Еще раз, вам нужно будет настроить для вашего сюжета.
boxplot(Sepal.Width ~ Species, data=iris, ylim=c(1,5))
legend(0.23, 1.65, c("1960-2002**", "2002-2012**", "t-test verb."))