library(gtable)

## Loading required package: grid

?gtable_table

palette(c(RColorBrewer::brewer.pal(8, "Set1"),
          RColorBrewer::brewer.pal(8, "Pastel2")))

d <- head(iris, 3)
core <- gtable_table(d,
                     fg.par = list(col=1:8, hjust=0, x=0),
                     bg.par = list(fill=9:15, alpha=0.5))
colhead <- gtable_table(t(colnames(d)), fg.par = list(fontface=4),
                        bg.par = list(col=NA))
rowhead <- gtable_table(c("", rownames(d)), fg.par = list(fontface=3),
                        bg.par = list(col=NA))
g <- rbind(colhead, core)
g <- cbind(rowhead, g)
grid.newpage()
grid.draw(g)