ggplot垂直证明传奇

Question

我现在已经看了一段时间了。我的传说已经不在图表区域了。有没有办法在ggplot2中垂直对齐图例？

library(ggplot2)
df <- data.frame(x = 1:30, y = 1:30, color = letters[1:30])
ggplot(df, aes(x, y)) +
    geom_point(aes(colour = color)) +
    guides(col = guide_legend(nrow = 30))

Answer 1

使用legend.direction（“竖直”/“水平”）应该有效：

library(ggplot2)
df <- data.frame(x = 1:30, y = 1:30, color = letters[1:30])
ggplot(df, aes(x, y)) +
    geom_point(aes(colour = color)) +
    theme(legend.direction='horizontal')

您可能还想将其与legend.box（“水平”/“垂直”）结合使用。

如果要控制图例的绝对位置，请添加：

theme(legend.direction = "vertical",
legend.box = "horizontal",
legend.position = c(0.025,0.975),
legend.justification = c(0, 1))

例如，将图例放在图表的左上角。