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))