Как объединить два сюжетных объекта (не ggplot)

Question

У меня есть следующий код:

library(UpSetR)

listInput <- list(one = c(1, 2, 3, 5, 7, 8, 11, 12, 13), two = c(1, 2, 4, 5, 
                                                                 10), three = c(1, 5, 6, 7, 8, 9, 10, 12, 13))

p <- upset(fromList(listInput), order.by = "freq")
jpeg(filename = "test.jpg")
print(p)
dev.off()

, который создает график, подобный этому:

Как указано в графике выше я хочу добавить текст MY_TITLE поверх него. Я попробовал это, но не получилось:

t <- grid.text("MY_TITLE", x = 0.65, y = 0.95, gp = gpar(fontsize = 10))
np <- p +  t
jpeg(filename = "test.jpg")
print(np)
dev.off()

Какой правильный способ сделать это? Не то чтобы я хотел сохранить объединенные фигуры в объекте. Потому что мне нужно сделать print(), чтобы потом сохранить как файл.

Answer 1

Вы не можете использовать грамматику и синтаксис ggplot на базовых графиках. Не используйте +, просто нанесите текстовый код под вызовом print(p) следующим образом:

jpeg(filename = "test.jpg")
print(p)
grid.text("MY_TITLE", x = 0.65, y = 0.95, gp = gpar(fontsize = 10))
dev.off()

Это даст вам то, что вы хотите.