当您将一条线缠绕到单元格中时,是否有办法调整R中表格GROB中的行距?

当您将一条线缠绕到单元格中时,是否有办法调整R中表格GROB中的行距?,r,string,gridextra,R,String,Gridextra,我正在尝试减少有长字符串的单元格中的行距 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(Ta

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

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))
库(gridExtra)
表
get.gpar()$lineheight
#1.2违约

MyDeST请考虑至少添加一些解释,回答这个问题的原因。
get.gpar()$lineheight 
# 1.2 default
mytheme <- ttheme_default(core=list(fg_params=list(lineheight=1)))

grid.newpage()
grid.draw(tableGrob(Table, theme = mytheme))