ggplot2

Question

का उपयोग करके किंवदंती के ऊपर और नीचे की जगह यदि आप here चार्ट देख रहे हैं! आप देख सकते हैं कि किंवदंती के ऊपर और नीचे बहुत सी सफेद जगह है। मैं अंतरिक्ष की मात्रा को कम करना चाहता हूं।

उदाहरण कोड:

library(ggplot2) 
library(gridExtra) 
library(reshape) 
library(plyr) 
library(scales) 

theme_set(theme_bw()) 

rows <- 1:nrow(faithful) 
data <- cbind(faithful, rows) 
molten <- melt(data, id.vars='rows', measure.vars=c('eruptions', 'waiting')) 

p <- ggplot() + 
    geom_line(data=molten, 
     mapping=aes(x=rows, y=value, group=variable, colour=variable), size=0.8) + 
    scale_colour_manual(values=c('red','blue')) + 
    opts(title='Title') + 
    xlab(NULL) + ylab('Meaningless Numbers') + 
    opts(
     legend.position='bottom', 
     legend.direction='horizontal', 
     legend.title=theme_blank(), 
     legend.key=theme_blank(), 
     legend.text=theme_text(size=9), 
     legend.margin = unit(0, "line"), 
     legend.key.height=unit(0.6,"line"),  
     legend.background = theme_rect(colour='white', size=0) 
    ) 

ggsave(p, width=8, height=4, filename='crap.png', dpi=125) 

Answer 1

यहाँ दो अतिरिक्त विकल्प है कि आप अंतरिक्ष कथा हटना चारों ओर अनुमति देते हैं:

p + opts(
     legend.key.height=unit(0, "cm"),  
     plot.margin = unit(c(1,0.5,0,0.5), "lines") 
    ) 

विकल्प plot.margin का वर्णन करता है वहाँ भूखंड ही आसपास है कितनी जगह । तीसरा तर्क साजिश के नीचे की जगह का वर्णन करता है। शून्य पर सेट करने में मदद करता है।

Answer 2

कथा का मार्जिन (ऋणात्मक मानों भी अधिक सफेद स्थान को कम) निकालने के लिए:

p + theme(legend.margin=margin(t=0, r=0, b=0, l=0, unit="cm")) 
p + theme(legend.margin=margin(t=0, r=0, b=-0.5, l=0, unit="cm")) 

तुम भी (ऋणात्मक संख्याओं को निर्दिष्ट करके साजिश मार्जिन के निचले हिस्से को हटा सकते हैं

p + theme(plot.margin = unit(x = c(0, 0, -0.2, 0), units = "cm") 

चित्र: लेकिन यह सुनिश्चित करें कि आप अपनी कथा) काट नहीं करते हैं ggplot2, legend on top and margin