使用scale_shape_manual时，图例中的颜色会丢失

Question

我正在尝试使用形状位置21的填充形状绘制点。

d <- data.frame(expand.grid(a=letters[1:4],
      b=factor(1:2)), y=rnorm(8),x=rnorm(8))

这非常有效：

ggplot(d, aes(x=x, y=y,fill=a,color=a))  + 
      geom_point(aes(shape=b,fill=a),size=4) +
      scale_shape_manual(values=c(21,22))

我想让形状的轮廓颜色为黑色，所以我认为设置颜色=＆＃34;黑色＆＃34;在aes()之外可以解决问题：

 ggplot(d, aes(x=x, y=y,fill=a,color=a))  + 
   geom_point(aes(shape=b,fill=a),color="black",size=4) + 
   scale_shape_manual(values=c(21,22))

这在情节内部起作用。但是，图例中的颜色都设置为黑色。

如何获得上述传奇？

Answer 1

由于某种原因，填充图例默认为形状符号1（实心圆），因此它显示颜色而不是填充美学。将其添加到ggplot命令：

  + guides(fill=guide_legend(override.aes=list(shape=21)))