r语言ggplot2画箱线图

以下是使用R语言中的ggplot2包绘制箱线图的示例代码：

# 导入ggplot2包
library(ggplot2)

# 创建数据集
y <- data.frame(
  Var1 = rep(c("A", "B", "C"), each = 100),
  value = rnorm(300)
)

# 定义函数，计算箱线图的统计指标
f <- function(y) {
  r <- quantile(y, probs = c(0.05, 0.25, 0.5, 0.75, 0.95))
  r[3] <- mean(y)
  names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
  r
}

# 绘制箱线图
p1 <- ggplot(y, aes(Var1, value, fill = factor(Var1))) +
  scale_fill_brewer(palette = "Set3") +
  guides(fill = FALSE) +
  stat_summary(fun.data = f, geom = 'boxplot')

# 在图中添加一条虚线
2 <- p1 + geom_hline(aes(yintercept = 0.6), linetype = "dashed")

这段代码首先导入了ggplot2包，然后创建了一个数据集y，其中包含了要绘制箱线图的数据。接下来定义了一个函数f，用于计算箱线图的统计指标。最后使用ggplot函数创建了一个基本的箱线图p1，并使用stat_summary函数将函数f应用于数据集y，以绘制箱线图的各个部分。最后，使用geom_hline函数在图中添加了一条虚线p2。