R ggplot2：更改圖例和麪板之間的間距

Question

如何更改ggplot2 2.2.0中圖例區域和麪板之間的間距？

library(ggplot2) 
library(dplyr) 
library(tidyr) 

dfr <- data.frame(x=factor(1:20),y1=runif(n=20)) %>% 
     mutate(y2=1-y1) %>% 
     gather(variable,value,-x) 


ggplot(dfr,aes(x=x,y=value,fill=variable))+ 
    geom_bar(stat="identity")+ 
    theme(legend.position="top", 
     legend.justification="right") 

更改legend.margin或legend.box.margin似乎並沒有做任何事情。

ggplot(dfr,aes(x=x,y=value,fill=variable))+ 
    geom_bar(stat="identity")+ 
    theme(legend.position="top", 
     legend.justification="right", 
     legend.margin=margin(0,0,0,0), 
     legend.box.margin=margin(0,0,0,0)) 

Answer 1

其實，我認爲你提到的選項是可行的。他們似乎爲我工作;也許你沒有輸入適當的值。

看一看這兩個，看看我說的是：

ggplot(dfr,aes(x=x,y=value,fill=variable))+ 
    geom_bar(stat="identity")+ 
    theme(legend.position="top", 
     legend.justification="right", 
     legend.margin=margin(0,0,0,0), 
     legend.box.margin=margin(-10,-10,-10,-10)) 

ggplot(dfr,aes(x=x,y=value,fill=variable))+ 
    geom_bar(stat="identity")+ 
    theme(legend.position="top", 
     legend.justification="right", 
     legend.margin=margin(0,0,0,0), 
     legend.box.margin=margin(10,10,10,10))