ggplot2：强制图例在指南看起来没有效果时有一行

Question

我有以下玩具示例：

library(ggplot2)
g <- ggplot(mpg, aes(class))
mpg$drv <- sample(as.character((-4:4)), size = length(mpg$drv), replace = T)
g + geom_bar(aes(fill = drv), position = "fill") + theme(legend.position = "bottom") + guides(colour = guide_legend(nrow = 1))

对我来说会产生下图。

尽我所能，我无法让底部的传说成为一行。我环顾四周，guide_legend似乎没有效果。有没有更好的方法来做到这一点，还是有另一种方法来强制传奇在一行？

Answer 1

您在colour中指定了fill而不是guides。试试这个：

library(ggplot2)
mpg$drv <- sample(as.character((-4:4)), size = length(mpg$drv), replace = T)
g <- ggplot(mpg, aes(class))
g + geom_bar(aes(fill = drv), position = "fill") + theme(legend.position = "bottom") + guides(fill = guide_legend(nrow = 1))