在ggplot中避开median_hilow的垂直线

library(ggplot2)

# 示例数据
data <- data.frame(
  group = rep(c("A", "B"), each = 50),
  value = c(rnorm(50), rnorm(50, mean = 2))
)

# 绘制箱线图并避开垂直线
ggplot(data, aes(x = group, y = value)) +
  geom_boxplot(notch = TRUE)

library(ggplot2)

# 示例数据
data <- data.frame(
  group = rep(c("A", "B"), each = 50),
  value = c(rnorm(50), rnorm(50, mean = 2))
)

# 计算箱线图的各个组成部分
boxplot_data <- aggregate(value ~ group, data, function(x) {
  stats <- fivenum(x)
  c(median = stats[3], lower_fence = stats[1], upper_fence = stats[5])
})

# 绘制箱线图并避开垂直线
ggplot(data, aes(x = group, y = value)) +
  geom_segment(
    data = boxplot_data,
    aes(x = group, xend = group, y = lower_fence, yend = upper_fence),
    color = "black"
  ) +
  geom_point(shape = 4) +  # 绘制中位数点
  geom_segment(
    data = boxplot_data,
    aes(x = group, xend = group, y = median, yend = median),
    color = "red",
    linetype = "dashed"
  )