Добавление текста в график grid.table

Недавно я начал использовать функцию grid.tableиз пакета gridExtraдля преобразования табличных данных в файлы изображений png для использования в Интернете. Я был в восторге от него, поскольку по умолчанию он выдает очень хорошо выглядящий -результат, что-то вроде ggplot2для таблиц. Как и человек, который задал этот вопрос, я хотел бы видеть возможность указывать обоснование для отдельных столбцов, но это было бы вишенкой на том, что уже более -торт.

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

require(gridExtra)

mydf <- data.frame(Item = c('Item 1','Item 2','Item 3'), 
　　　　　　　　　　　　　　　　　　　　Value = c(10,15,20), check.names = FALSE)
grid.table(mydf,
           gpar.coretext=gpar(fontsize = 16),
           gpar.coltext = gpar(fontsize = 16),
           gpar.rowtext = gpar(fontsize = 16),
           gpar.corefill = gpar(fill = "blue", alpha = 0.5, col = NA),
           h.even.alpha = 0.5,
           equal.width = FALSE,
           show.rownames = FALSE,
           show.vlines = TRUE,
           padding.h = unit(15, "mm"),
           padding.v = unit(8, "mm")
           )

генерирует этот график:

когда я действительно хотел бы иметь возможность сделать что-то вроде следующего в коде, а не редактировать изображение с помощью другого приложения: