Reduce space (margin) between 2 tables in gridExtra with R -

उदाहरण:

  नमूना & lt; - data.frame (a = c (1, 2,3), बी = सी (2,3,4), सी = सी ("नाम 1", "नाम 2", "नाम 3"), डी = सी (1,2,3)) पीडीएफ (पथ, चौड़ाई = 15, ऊँचाई = 11) बराबर (mfrow = c (2,1)) plot.new () vps & lt; - baseViewports () pushViewport (वीपीएस $ आंकड़ा) vp1 & lt; -plotViewport () grid.table (नमूना, gpar कोरटेक्स्ट = गपर (फॉन्टेजइज़ = 14), गपरकॉलटेक्स्ट = गपर (फॉन्टेजइज़ = 14), गपर .रोटेक्स्ट = गपर (फॉन्टेजइज़ = 14), गपर। कोरफिल = गपर (भरण = "स्टीलब्लू 2", अल्फा = 0.4, कोला = NA ), H.even.alpha = 0.4, equal.width = FALSE, show.rownames = FALSE, show.vlines = TRUE, padding.h = इकाई (8, "मिमी"), padding.v = unit (8, " मिमी ")) # तालिका चौड़ाई / ऊंचाई ग्रिड.टेक्स्ट (" कुछ पाठ यहाँ आता है ... ", एक्स = 0.5, y = 0.75, gp = gpar (fontsize = 12)) popViewport () plot.new () बराबर ( Mar = c (प्रतिनिधि (0,4) +0.1)) # यहां कोई प्रभाव नहीं है vps & lt; - baseViewports () pushViewport (वीपीएस $ आंकड़ा) vp1 & lt; -plotViewport () grid.table (नमूना, gpar.coret Ext = gpar (fontsize = 14), gpar.coltext = gpar (fontsize = 14), gpar.rowtext = gpar (fontsize = 14), gpar.corefill = gpar (fill = "steelblue2", अल्फा = 0.4, col = NA ), H.even.alpha = 0.4, equal.width = FALSE, show.rownames = FALSE, show.vlines = TRUE, padding.h = इकाई (8, "मिमी"), padding.v = unit (8, " मिमी ")) # तालिका चौड़ाई / ऊंचाई ग्रिड.टेक्स्ट (" कुछ पाठ यहाँ आता है ... ", x = 0.5, y = 0.75, gp = gpar (fontsize = 12)) पॉपव्यूवरपोर्ट () dev.off ()   
   
 कैसे निकालें 2 तालिकाओं के बीच की दूरी?  
 संपादित करें: अन्य अधिक सरल तरीका:  
  नमूना & lt; - डेटा.फ्रेम (a = c (1,2,3), b = c (2,3 , 4), सी = सी ("नाम 1", "नाम 2", "नाम 3"), डी = सी (1,2,3)) पीडीएफ (पथ, चौड़ाई = 5, ऊंचाई = 4) ग्रिड। नमूना, show.rownames = F), tableGrob (नमूना, show.rownames = F), nrow = 2) dev.off ()  
 
 पीडीएफ <कोड> चौड़ाई /