विलय टेबल हैडर tableGrob

Question

का उपयोग कोशिकाओं मैं वर्तमान में उपयोग कर एक मेज छवि बनाने हूँ:

dput का उपयोग करना (SummaryTable):

SummaryTable <- data.frame(
    index, 

    xa, 
    xb, 

    ya, 
    yb, 

    za, 
    zb 

) 
names(SummaryTable) <- c("Index", 
         "Main X Sub A", 
         "Main X Sub B", 
         "Main Y Sub A", 
         "Main Y Sub B", 
         "Main Z Sub A", 
         "Main Z Sub B") 

tt <- ttheme_default(colhead=list(fg_params = list(parse=TRUE))) 
tbl <- tableGrob(SummaryTable, rows=NULL, theme=tt) 

grid.arrange(tbl,as.table=TRUE) 

उत्पादन के साथ

structure(list(Index = 0:8, `Main X Sub A` = c(1, 0.69, 0.61, 
0.56, 0.5, 0.44, 0.4, 0.36, 0.33), `Main X Sub B` = c(0.86, 0.62, 
0.51, 0.42, 0.36, 0.31, 0.27, 0.24, 0.23), `Main Y Sub A` = c(1, 
0.8, 0.74, 0.68, 0.63, 0.56, 0.52, 0.47, 0.43), `Main Y Sub B` = c(0.86, 
0.77, 0.67, 0.59, 0.53, 0.47, 0.43, 0.39, 0.36), `Main Z Sub A` = c(0, 
0.17, 0.23, 0.27, 0.33, 0.37, 0.42, 0.46, 0.49), `Main Z Sub B` = c(0, 
0.24, 0.33, 0.42, 0.48, 0.55, 0.6, 0.64, 0.66)), .Names = c("Index", 
"Main X Sub A", "Main X Sub B", "Main Y Sub A", "Main Y Sub B", 
"Main Z Sub A", "Main Z Sub B"), row.names = c(NA, -9L), class = "data.frame") 

हालांकि, मैं इस आउटपुट को प्राप्त करने के लिए शीर्ष शीर्षकों को मर्ज करना चाहते हैं (पीएनजी या पीडीएफ के रूप में):

यह तालिका एक्सेल में बनाई गई थी। एक्स, वाई और जेड विलय कोशिकाओं के भीतर हैं।

क्या कोई भी विलय कोशिकाओं पर विधियों के साथ सहायता करने में सक्षम है?

Answer 1

एक तरह से join (described here) के बजाय combine उपयोग करने के लिए, अपनी मेज के लिए एक अतिरिक्त शीर्ष लेख पंक्ति जोड़ने के लिए किया जाएगा।

here से एक विचार का उपयोग करके आप अतिरिक्त शीर्षलेख पंक्ति के लिए tableGrob बना सकते हैं।

आप स्थिति को सही करने के लिए gtable के l, और r को बदल सकते हैं।

library(grid) 
library(gridExtra) 

# example data & header row 
tab <- tableGrob(mtcars[1:3, 1:4], rows=NULL) 
header <- tableGrob(mtcars[1, 1:2], rows=NULL, cols=c("head1", "head2")) 

jn <- combine(header[1,], tab, along=2) 
jn$widths <- rep(max(jn$widths), length(jn$widths)) # make column widths equal 
#grid.newpage() 
#grid.draw(jn) # see what it looks like before altering gtable 

# change the relevant rows of gtable 
jn$layout[1:4 , c("l", "r")] <- list(c(1, 3), c(2, 4)) 

grid.newpage() 
grid.draw(jn)