sx_mean = sx %>%
group_by(modulename) %>%
summarise(mean = mean(pr), SE = sd(pr)/sqrt(length(pr)))
ggplot(data = sx_mean ) +
geom_point( aes(x = module, y = mean, fill = Value), size = 2.5, color = "seagreen") +
geom_errorbar(aes(ymin=mean-SE, ymax=mean+SE))
data.frame中的错误(列表(ymin = c(2.05161888719508,1.8746390713981, 1.28228295778586,:参数意味着行数不同:10,31