,可以通过以下步骤实现:
install.packages("ggplot2")
install.packages("dplyr")
library(ggplot2)
library(dplyr)
set.seed(123)
data <- data.frame(x = rnorm(100), group = rep(c("A", "B", "C"), each = 33))
p <- ggplot(data, aes(x = group, y = x, fill = group)) +
geom_boxplot(fill = "lightgray", alpha = 0.5)
stats <- data %>%
group_by(group) %>%
summarise(mean = mean(x), se = sd(x)/sqrt(length(x)))
p <- p + geom_errorbar(data = stats, aes(x = group, ymin = mean - se, ymax = mean + se),
width = 0.2, color = "black", alpha = 0.9)
p <- p + theme_bw() +
labs(x = "Group", y = "Value") +
theme(legend.position = "none")
完成上述步骤后,可以使用print()函数打印并显示生成的图表。
print(p)
对于腾讯云相关产品和产品介绍链接地址,由于我们不可以提及具体品牌商,建议查询腾讯云官方网站或使用搜索引擎进行相关信息的查找。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云