Недавно я начал использовать функцию 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")
)
генерирует этот график:
когда мне действительно хотелось бы сделать что-то вроде следующего в коде, а не редактировать изображение с помощью другого приложения: