如何在R中绘制带阈值背景的一维数值范围对比图？

直接用ggplot2就能搞定你要的效果——先画分色背景，再叠加箱线图，最后加标题。以下是完整可运行的代码：

library(ggplot2)

# 输入数据
x1 <- c(44, 73)
# 转成ggplot需要的数据框格式
df <- data.frame(value = x1, group = factor(1))

# 定义背景颜色区间的参数
bg_info <- data.frame(
  x_start = c(0, 48, 69),
  x_end = c(48, 69, 100),
  y_low = 0.8,
  y_high = 1.2,
  color = c("red", "yellow", "red")
)

# 绘图
ggplot(df, aes(x = value, y = group)) +
  # 先画背景色块，用alpha调透明度避免遮挡箱线图
  geom_rect(data = bg_info, aes(xmin = x_start, xmax = x_end,
                                ymin = y_low, ymax = y_high, fill = color),
            alpha = 0.3) +
  # 画水平箱线图，控制宽度和你之前的boxwex一致
  geom_boxplot(width = 0.2) +
  # 设置x轴范围
  xlim(0, 100) +
  # 加居中标题
  ggtitle("数值范围与阈值对比") +
  # 直接用定义好的颜色
  scale_fill_identity() +
  # 简化主题，隐藏没用的y轴标签
  theme_minimal() +
  theme(axis.title.y = element_blank(),
        plot.title = element_text(hjust = 0.5))

关键细节说明： #

• 背景用geom_rect绘制三个区间的色块，alpha参数调透明度，保证箱线图能清晰显示
• 箱线图的width=0.2和你原代码的boxwex=0.2效果一致
• 标题用ggtitle直接添加，配合theme设置居中，完全是你要的ggtitle风格
• 把向量转成数据框是因为ggplot2基于数据框工作，后续如果要加多个分组也能直接扩展

要是觉得y轴刻度没必要，在theme里加一行axis.text.y = element_blank()就能去掉。

内容的提问来源于stack exchange，提问作者mysteRious