r - 将图例符号从 geom_boxplot 符号更改为正方形

Question

我可以更改箱线图图例中使用的符号吗？我想使用正方形而不是默认的箱线图符号。经过一番搜索后，我尝试了以下操作，但是最后一行似乎没有效果:

df = data.frame(x = rnorm(10), y = sample(letters[1:2], 10, TRUE))
library(ggplot2)
ggplot(df, aes(y, x)) +
geom_boxplot(aes(color = y)) +
guides(fill = guide_legend(override.aes = list(shape = 22)))

原因是该图左边还有另一张图，它使用相同的颜色，但点而不是箱线图，所以我想要一个适用于两者的图例。

Answer 1

我想有多种方法可以实现你想要的，但我通常做的是:

1. 删除箱线图图例
2. 添加大小为 0 的 geom_point 图层
3. 更改 geom_point 的图例，而不是 geom_boxplot

代码:

df <- data.frame(x = rnorm(10), 
                 y = sample(letters[1:2], 10, TRUE))

library(ggplot2)
ggplot(df, aes(y, x, color = y)) +
    # Add dummy point layer with invisible points (size 0)
    geom_point(size = 0, shape = 22) +
    # Don't show legend
    geom_boxplot(show.legend = FALSE) +
    # Increase point size
    guides(color = guide_legend(override.aes = list(size = 10)))

结果: