用ggplot2躲避箱线图和误差线

library(ggplot2)
library(Hmisc)
data(mtcars)
myplot <- ggplot(mtcars, aes(x = as.factor(cyl), y = qsec)) +
    geom_boxplot() +
    stat_summary(fun.y = mean, geom = "point", shape = 5, size = 2) +
    stat_summary(fun.data = mean_cl_normal, geom = "errorbar",
             width = 0.2)
library(ggplot2)
library(Hmisc)
data(mtcars)
my