你可以通过主题来实现这个:
mytheme <- gridExtra::ttheme_default(
core = list(fg_params=list(cex = 2.0)),
colhead = list(fg_params=list(cex = 1.0)),
rowhead = list(fg_params=list(cex = 1.0)))
myt <- gridExtra::tableGrob(mtcars[1:5, 1:5], theme = mytheme)
grid.draw(myt)
在 browseVignettes("gridExtra")
中还有许多其他示例 - 查看 tableGrob
示例。非常多的控制是可能的。
tableGrob
文档。那里的文档有许多额外的示例,特别是关于向表格添加线条和框的部分。当然,您需要安装该版本才能使用它。 - Bryan Hanson您还可以使用 base_size 轻松更改通用字体大小。
grid.draw(tableGrob(head(mtcars, n=10),theme=ttheme_minimal(base_size = 5) ))