R：在ggplot boxplot中剪裁图例留下两个单独的图例

Question

我使用 ggplot2 包创建了一个分面箱线图。 R代码如下：

version.labs <- c(`1`="Version 1.0", `2`="Version 2.0", `3`="Version 3.0", `4`="Version 4.0", `5`="Version 5.0")
ggplot(df, aes(x=factor(Subsystem), y=Risk.value, fill=factor(Version)) ) + 
  geom_jitter(position=position_jitter(width=0.3, height=0.2), aes(colour=factor(Version)), alpha=0.9) +
  geom_boxplot(alpha = 0.5, show.legend = FALSE) + facet_grid(.~Version, labeller = as_labeller(version.labs)) +
  theme(strip.text.x = element_text(size=9, color="black", face="bold"))

除了图例之外，生成的图看起来还不错（如下所示）。

在图例中，我想更改每个项目的标题和文本标签。标题应为“版本”，标签应为“版本 1.0”、...、“版本 5.0”。

我尝试了各种方法，但它们都添加了一个新的单独图例。新图例看起来不错，但旧图例仍然存在，看起来不太好，我找不到删除它的方法。

我尝试的最后一件事是添加 scale_color_manual() 函数，如下所示：

scale_color_manual(name = "Version", labels=c("v1.0","v2.0","v3.0","v4.0","v5.0"), values=c("grey","blue","green","red","black"))

这会产生如下所示的箱线图。

可以看出有两个传说。所以，关闭但没有雪茄。任何有关如何解决此问题的提示都表示赞赏。

Answer 1

我发现了问题所在。那是我把我的美学填充函数aes()放在了通用ggplot()中。这应该放在geom_boxplot() 中，否则一般的ggplot() 和geom_boxplot() 都会添加一个图例。所以我修复了这个问题，然后我使用guides() 更新了geom_boxplot() 图例中的标题。完整代码如下：

ggplot(df, aes(x=factor(Subsystem), y=Risk.value) ) + 
  geom_jitter(position=position_jitter(width=0.3, height=0.2), aes(colour=factor(Version)), alpha=0.9) +
  geom_boxplot(alpha = 0.5, show.legend = FALSE, aes(fill=factor(Version))) + facet_grid(.~Version, labeller = as_labeller(version.labs)) +
  theme(strip.text.x = element_text(size=9, color="black", face="bold")) +
  labs(x="Risk distribution per software version and subsystem type", y="Normalized risk value") + 
  guides(color=guide_legend("Version"))

最后的情节是这样的，我很满意。

Answer 2

您正在使用fill 参数来分组和生成图例。可以代替 scale_color_manual 您可以使用 scale_fill_manual 覆盖现有图例