r - 使用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))

我希望形状的轮廓颜色为黑色，所以我认为在 aes() 之外设置 color="black"就可以解决问题:

 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)))