2015-07-20 49 views

回答

4

new vignette直接适于,

library(gridExtra) 
tt1 <- ttheme_default() 
tt2 <- ttheme_default(core=list(fg_params=list(vjust=1, y=0.9))) 
tt3 <- ttheme_default(core=list(fg_params=list(vjust=0, y=0.1))) 

grid.arrange(
    tableGrob(mtcars[1:4, 1:3], rows=NULL, cols=NULL, theme=tt1), 
    tableGrob(mtcars[1:4, 1:3], rows=NULL, cols=NULL, theme=tt2), 
    tableGrob(mtcars[1:4, 1:3], rows=NULL, cols=NULL, theme=tt3), 
    nrow=1) 

enter image description here