ggplot2 函数中的均值和中值箱线图图例

Question

我正在尝试添加一个标题来标识“球”是平均值，“线”是箱线图的中值，如下所示：

mediasCon1 = tapply(dados$FS, dados$Trat, mean)

boxplot(dados$FS ~ dados$Trat, data = dados, col="gray", 
        xlab = 'Tratamentos', ylab = 'Espermatozoides - Cauda Solta')
points(1:3, mediasCon1, col = 'black', pch = 16)
legend("topleft", legend=c("Média", "Mediana"),
       lty=c(NA,1), col="black", lwd=1:3, bty="n", pch=c(16,NA))

但是在使用ggplot2函数时出现如下错误：

ggplot(data=dados, aes(x=Trat, y=FS)) + geom_boxplot(fill=c("#DEEBF7","#2171B5","#034E7B"),color="black") +
  xlab('Tratamentos') +
  ylab('Espermatozoides - Cauda Solta') + 
  stat_summary(fun=mean, colour="black", geom="point", 
               shape=18, size=5) + 
  theme(axis.title = element_text(size = 20),
        axis.text = element_text(size = 16)) +
legend("topleft", legend=c("Média", "Mediana"),
       lty=c(NA,1), col="black", lwd=1:3, bty="n", pch=c(16,NA))

Error in strwidth(legend, units = "user", cex = cex, font = text.font) : 
  plot.new has not been called yet

Answer 1

试试这个方法：

library(ggplot2)
#Code
ggplot(data=dados, aes(x=Trat, y=FS)) + 
  geom_line(aes(linetype='median'),size=1)+
  geom_point(aes(shape='mean'),size=5)+
  geom_boxplot(fill=c("#DEEBF7","#2171B5","#034E7B"),color="black") +
  xlab('Tratamentos') +
  ylab('Espermatozoides - Cauda Solta') + 
  stat_summary(fun=mean, colour="black", geom="point", 
               shape=18, size=5) + 
  theme(axis.title = element_text(size = 20),
        axis.text = element_text(size = 16))+
  scale_linetype_manual('Variable',values='solid')+
  scale_shape_manual('',values = 18)+
  theme(legend.spacing.y = unit(0.1, "cm"))

输出：

ggplot2 函数中的均值和中值箱线图图例

Mean and median boxplot legend in the ggplot2 function

statistics

graphics

r

legend

ggplot2