R ggplot在图例项之间添加空格
问题描述:
我有一个ggplot2,并且正在尝试增加图例项之间的间距。R ggplot在图例项之间添加空格
下面的代码产生以下情节:
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中给出的解决方案,因为我没有使用因子变量,据我所知。
我该怎么办?
答
你可以尝试像以下:
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))