R tableGrob формат изменение строки

Question

У меня есть некоторые относительно простой код для создания таблицы для печати в формате PDF:

library(gridExtra) 
df <- head(iris) 
tableGrob(df, gp = gpar(fontsize = 8), rows = NULL) 

я хотел бы сделать в последней строке в том же формате, что и строки заголовка (полужирный , и более темный серый фон). Я понимаю, что я могу использовать gpar для управления форматом всей таблицы, но не уверен, как просто повлиять на последнюю строку.

Спасибо!

Answer 1

Одним из вариантов является создание новой таблицы, и слить два вместе,

g1 <- tableGrob(iris[1:4, 1:3], rows=NULL) 
g2 <- tableGrob(iris[1, 1:3], rows=NULL, # can't have empty content 
       cols=as.character(iris[4, 1:3])) # use 4th row as header 

grid.newpage() 
g <- rbind(g1[-nrow(g1), ], g2[1,]) 
grid.draw(g) 

Answer 2

Я просто вспомнил, что параметры форматирования получить повторно (но только с вменяемой логикой после версия> = 2.2.0), так что вы можете сделать,

library(gridExtra) 
library(grid) 
t1 <- ttheme_default(core=list(
     fg_params=list(fontface=c(rep("plain", 4), "bold.italic")), 
     bg_params = list(fill=c(rep(c("grey95", "grey90"), 
            length.out=4), "#6BAED6")) 
     )) 

grid.newpage() 
grid.table(iris[1:5, 1:3], theme=t1) 

Answer 3

Вы можете редактировать grobs, как это было предложено в the vignette

library(gridExtra) 
g <- tableGrob(iris[1:4, 1:3]) 

edit_cell <- function(table, row, col, name="core-fg", ...){ 
    l <- table$layout 
    ids <- which(l$t %in% row & l$l %in% col & l$name==name) 
    for (id in ids){ 
    newgrob <- editGrob(table$grobs[id][[1]], ...) 
    table$grobs[id][[1]] <- newgrob 
    } 
    table 
} 

g <- edit_cell(g, nrow(g), seq_len(ncol(g)), "core-fg", 
       gp=gpar(fontsize=15, fontface="bold")) 
g <- edit_cell(g, nrow(g), seq_len(ncol(g)), "core-bg", 
       gp=gpar(fill="darkolivegreen1", 
         col = "darkolivegreen4", lwd=5)) 

grid.newpage() 
grid.draw(g)