如何用ggplot绘制箱式图且绘出上边缘线和下边缘线

以下是使用ggplot绘制箱式图并绘制上下边缘线的示例代码：

library(ggplot2)

# 创建数据集
data <- data.frame(
  group = rep(c("A", "B"), each = 50),
  value = c(rnorm(50, mean = 0, sd = 1), rnorm(50, mean = 2, sd = 1))
)

# 绘制箱式图并添加上下边缘线
ggplot(data, aes(x = group, y = value)) +
  geom_boxplot() +
  geom_segment(aes(x = 0.75, y = max(value), xend = 1.25, yend = max(value)), linetype = "dashed") +
  geom_segment(aes(x = 0.75, y = min(value), xend = 1.25, yend = min(value)), linetype = "dashed") +
  ylim(min(data$value)-1, max(data$value)+1) # 设置y轴范围，使得边缘线可以显示出来

说明：

- 使用ggplot函数创建一个ggplot对象，并传递数据集和aesthetics参数。
- 使用geom_boxplot函数添加箱式图。
- 使用geom_segment函数添加上下边缘线。其中x参数设置为0.75和1.25，以使线段放置在箱式图的两侧；y参数分别设置为最大值和最小值，xend和yend参数分别设置为1.25和0.75，以使线段延伸到图形范围之外，并使用linetype参数设置线段类型为虚线。
- 使用ylim函数调整y轴范围，以使边缘线可以显示出来。