stat_summary 的 ggplot2 图例

Question

如何创建一个图例，告知红十字是平均值？

ggplot(results, aes(x=factor, y=proportionPositive)) +
geom_boxplot() +
stat_summary(fun.data = "mean_cl_normal", colour = "red", shape=4)

Answer 1

这是一种方法：

1. 将美学映射到形状，即aes（shape =“mean”）
2. 创建手动形状比例，即scale_shape_manual（）

 # Create dummy data results <- data.frame( factor=factor(rep(1:10, 100)), proportionPositive=rnorm(1000)) # Plot results ggplot(results, aes(x=factor, y=proportionPositive)) + geom_boxplot() + stat_summary(fun.data = "mean_cl_normal", aes(shape="mean"), colour = "red", geom="point") + scale_shape_manual("", values=c("mean"="x")) 

Answer 2

对我来说，选项“show.legend=TRUE”确实有效：

ggplot(aes(x=stimulus, y=EPN, fill=strategy))+ 
  stat_summary(fun.data=mean_se, show.legend=TRUE, geom="bar", position="dodge", colour="black", linetype="solid", size=0.3)

Answer 3

使它看起来像一个默认图例（借用@Andrie代码）：

ggplot(results, aes(x=factor, y=proportionPositive)) +
      geom_boxplot() +
      stat_summary(fun.data = "mean_cl_normal", 
              aes(shape=""), # Leave empty
              colour = "red",
              geom="point") +
      scale_shape_manual("mean", values= "") # Will show mean on top of the line