R ggplot在图例项之间添加空格

Question

我有一个ggplot2，并且正在尝试增加图例项之间的间距。

下面的代码产生以下情节：

library(tidyverse) 
library(ggplot2) 
year <- 2005:2015 
variablea <- 1000:1010 
variableb <- 1010:1020 
df = data.frame(year, variablea, variableb) 

df %>% gather(variable, value, -year) %>% 
    ggplot(aes(x = year, y = value, colour = variable, linetype = variable)) + 
    geom_line() + 
    theme(
    legend.key=element_blank() 
    ,legend.text=element_text(size=12) 
    ,legend.position="bottom" 
    ,legend.title=element_blank() 
    ,panel.background = element_rect(fill = "transparent") # bg of the panel 
    ,plot.background = element_rect(fill = "transparent") # bg of the plot 
) 

然而在底部图例项之间的间隙太接近为舒适。

我试图从其他问题的解决方案，但他们不工作。

例如，如Is there a way to change the spacing between legend items in ggplot2?中建议的+ guides(fill=guide_legend(keywidth=0.1, keyheight=0.1, default.unit="inch"))不能正常工作，因为它是一个线图，所以线条只是简单地扩展以填充额外的空间。我也尝试了链接问题中提出的第二种解决方案，但它似乎没有改变（目前我正在使用+ scale_fill_manual(values=c("red","blue"), labels=c("variablea ","variableb "))）。

此外，我不确定如何修改Space between gpplot2 horizontal legend elements中给出的解决方案，因为我没有使用因子变量，据我所知。

我该怎么办？

Answer 1

你可以尝试像以下：

df1 <- df %>% gather(variable, value, -year) 
df1$variable <- paste0(df1$variable,"\t\t\t\t\t") # enter more tabs if needed 
df1 %>% 
    ggplot(aes(x = year, y = value, colour = variable, linetype = variable)) + 
    geom_line() + 
    theme(
    legend.key=element_blank() 
    ,legend.text=element_text(size=12) 
    ,legend.position="bottom" 
    ,legend.title=element_blank() 
    ,panel.background = element_rect(fill = "transparent") # bg of the panel 
    ,plot.background = element_rect(fill = "transparent") # bg of the plot 
) + guides(linetype = guide_legend(ncol = 2,keywidth=4))