在水平图例标题的标题后添加换行符

如何解决在水平图例标题的标题后添加换行符

当 theme(legend.position = "top") 时，图例是水平的并且可能有点太宽。

这是一个例子：

library(ggplot2)
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species)) + 
  geom_point() + 
  xlim(5,6) + 
  coord_fixed() +
  theme(legend.position = "top")

^{由 reprex package (v0.3.0) 于 2021 年 1 月 14 日创建}

为了减少图例的宽度，我想在“物种”标题后添加一个换行符。

我知道 guides(guide_legend(ncol=2,nrow=2,byrow=TRUE))，它非常好，但它产生不同的输出。

解决方法

我们可以在 title.position 中的 guide_legend 中使用 scale_colour_discrete 参数：

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species)) + 
  geom_point() + 
  xlim(5,6) + 
  coord_fixed() +
  theme(legend.position = "top")+
  scale_colour_discrete(guide = guide_legend(title.position = "top"))