ggplot2自定义图例形状

Question

当我们在散点图中同时有形状和颜色图例时，颜色图例的形状会产生误导：

foo <- data.frame(
  length=runif(10),
  height=runif(10),
  group=as.factor(sample(3,10,rep=T)),
  quality=as.factor(sample(2,10,rep=T))
)

ggplot(foo, aes(x = length, y = height, color=group, shape=quality)) + 
  geom_point(size=5)

这将产生下面的情节。如您所见，“圆形”形状是为 quality==1 的对象保留的，但是在 group 图例中，所有 3 个组都以“圆形”形状呈现 - 使用不同的颜色，这可能会产生误导。

如果group 图例由尚未为特定目的保留的形状表示，那就更好了，比如只是用特定颜色填充整个图例项。

你有什么简单的办法解决这个问题吗？

Answer 1

可以使用guides手动更改图例的属性：

ggplot(foo, aes(x = length, y = height, color=group, shape=quality)) + 
  geom_point(size=5) + 
  guides(colour = guide_legend(override.aes = list(shape = 15)))

只需使用shape 参数即可找到合适的形状。