R - указать столбцы в grid.table быть жирным - PullRequest
Новая
       16

R - указать столбцы в grid.table быть жирным

0 голосов
/ 21 ноября 2018

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

Использование небольшого выборочного набора данных (из-за чувствительности): 

> dput(Data)
structure(list(Location = structure(c(1L, 1L, 1L, 2L, 2L, 3L), .Label = c("A", "B", "C"), class = "factor"), 
Subloc = structure(1:6, .Label = c("A1","A2", "A3", "B1", "B2", "C1"), 
class = "factor"), Type = structure(c(3L,3L, 3L, 1L, 1L, 2L), 
.Label = c("Alpha", "Beta", "Meta"), 
class = "factor")), 
class = "data.frame", 
row.names = c(NA, -6L))

Мой существующий код: 

    maxrow <- c(30);
    npages <- ceiling(nrow(Data)/maxrow);
    pdf(paste0("DATE.pdf"), height = 11, width = 10)
    idx <- seq(1, maxrow)
    grid.table(Data[idx, ], rows = NULL, theme = ttheme_minimal(core=list(fg_params=list(hjust=0, x=0.1, fontface = c("bold"))),
                                                           rowhead=list(fg_params=list(hjust=0, x=0)), colhead=list(fg_params=list(fontsize = 14, col="#660066", fontface="bold"))))
    for (i in 2:npages){
     grid.newpage();
    if(i*maxrow <= nrow(Data)) {
    idx <- seq(1+((i-1)*maxrow), i*maxrow)}  else{
       idx <- seq(1+((i-1)*maxrow), nrow(Data))}grid.table(Data[idx,], rows =NULL,theme = ttheme_minimal(core=list(fg_params=list(hjust=0, x=0.1)), rowhead=list(fg_params=list(hjust=0, x=0)),colhead=list(fg_params=list(fontsize = 14, col="#660066", fontface="bold"))))
}dev.off()

Я хочу, чтобы данные внутри столбцов «Расположение» и «Тип» (не заголовки столбцов) были выделены жирным шрифтом.Мне удалось сделать все содержимое столбца жирным в оболочке fg_params = list, но я не знаю, как указать столбцы, для которых требуется эта обработка.

1 Ответ

0 голосов
/ 23 ноября 2018

попробуйте 

library(gridExtra)

tt <- ttheme_default()
tt$core$fg_params <- list(fontface=matrix(c(1,2,3), ncol=ncol(d),nrow=nrow(d),byrow=TRUE))

grid.table(d, theme=tt)

Вывод кода:

enter image description here

...