使用stat_summary在ggplot中使用相同填充和边框的单独形状

我正在尝试使用stat_summary在ggplot中获得线+点图。我想为每一组得到单独的形状，但有白色填充和黑色边框的形状。如果您首先创建一个均值表，并使用geom_point（）将其用作数据帧，那么这就足够简单了。但我希望能够用stat_summary做到这一点

df <- data.frame(day = rep(0:3, times = 12), score = rnorm(48,5,1), group = rep(letters[1:3], each = 4, times = 4))

ggplot(df, aes(x = day, y = score)) +
       stat_summary(fun.y = "mean", geom = "line", aes(linetype = group)) +
       stat_summary(fun.y = "mean", geom = "point", aes(shape = group), size = 4)

df您可以尝试：

  ggplot(df, aes(x = day, y = score)) +
    stat_summary(fun.y = "mean", geom = "line", aes(linetype = group)) +
    stat_summary(fun.y = "mean", geom = "point", aes(shape = group), size = 4, col="black", fill="white")+
  scale_shape_manual(values = 21:23)