有没有办法在 R 中的 TableGrob 中调整行距，当您将字符串包装成适合单元格时?

Question

我正在尝试减少具有长字符串的单元格中的行距。

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 pt，我希望它是 1 pt

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