Eu comecei recentemente usando ogrid.table função dogridExtra pacote para transformar dados tabulares em arquivos de imagem png para uso na web. Eu tenho ficado muito feliz com isso, na medida em que produz uma saída muito boa por padrão, mais ou menos comoggplot2 para tabelas. Como a pessoa queperguntei essa pergunta eu adoraria ver a capacidade de especificar a justificativa para colunas individuais, mas isso seria uma cereja no que já é um bolo mais ish.

Minha pergunta é se é possível adicionar texto em torno de umgrid.table para que eu possa dar um título e uma nota de rodapé às tabelas traçadas. Parece-me que isso deve ser viável, mas eu não sei o suficiente sobre gráficos de grade para poder descobrir como adicionar grobs ao table grob. Por exemplo, este código:

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")
           )

gera este enredo:

quando eu gostaria de poder fazer algo como o seguinte no código, em vez de editar a imagem com outro aplicativo: