Я пытаюсь уменьшить межстрочный интервал в ячейках, где у меня длинные строки символов.
library(gridExtra) Table <- data.frame(Model = c("Long names bla bla", "Long name bla bla 2")) Table[,"Model"] <- sapply(Table[,"Model"] , function(x) paste(strwrap(x, width = 10), collapse="\n")) grid.arrange(tableGrob(Table))
См. Пример вывода кода здесь. Линейный интервал выглядит примерно на 1,5 пт. Мне бы хотелось, чтобы он был 1 пт
get.gpar()$lineheight # 1.2 default mytheme <- ttheme_default(core=list(fg_params=list(lineheight=1))) grid.newpage() grid.draw(tableGrob(Table, theme = mytheme))