R语言绘图：批量添加标注与区域着色的技术问询

刚好我经常处理这类R绘图需求，给你两个问题的具体解决方案：

要实现批量生成时半自动添加红色标注，核心思路是把标注的位置、文本内容统一放到一个数据框里，批量生成时只需要修改这个数据框的内容，不用改动绘图逻辑，既灵活又能保证一致性。

示例代码：

# 第一步：定义标注信息，批量生成时仅需修改这个数据框
annotations <- data.frame(
  x_pos = c(2, 2, 2, 2),  # 标注的横坐标，可根据图表调整
  y_pos = c(0.9, 0.3, 0.15, 0.005),  # 标注的纵坐标
  label_text = c("Region 4", "Region 3", "Region 2", "Region 1"),
  text_color = "red"
)

# 第二步：绘制基础折线图
boundary12 <- c(0.01, 0.005, 0.002, 0.001) 
boundary23 <- c(0.1, 0.05, 0.02, 0.01) 
boundary34 <- c(0.5, 0.6, 0.7, 0.55) 

plot(boundary12, type="l", ylim=c(0,1), 
     xlab="Pollution level", ylab="Probability of event")
lines(boundary23)
lines(boundary34)

# 第三步：循环添加所有标注
for(i in 1:nrow(annotations)){
  text(x = annotations$x_pos[i], y = annotations$y_pos[i], 
       labels = annotations$label_text[i], 
       col = annotations$text_color[i], 
       font = 2)  # font=2设置加粗，可选参数
}

给区域着色需要用polygon()函数构造闭合区域，注意先填充颜色再绘制边界线，避免线条被填充色覆盖。以下是对应你的图表区域的着色代码：

boundary12 <- c(0.01, 0.005, 0.002, 0.001) 
boundary23 <- c(0.1, 0.05, 0.02, 0.01) 
boundary34 <- c(0.5, 0.6, 0.7, 0.55) 
x_axis <- 1:length(boundary12)  # 提取横坐标索引

# 先绘制空图表（type="n"只画坐标轴不画数据）
plot(boundary12, type="n", ylim=c(0,1), 
     xlab="Pollution level", ylab="Probability of event")

# 填充区域1（最下方，蓝色）
polygon(c(x_axis, rev(x_axis)), c(boundary12, rep(0, length(x_axis))), 
        col="blue", border=NA)
# 填充区域2（中间偏下，黄色）
polygon(c(x_axis, rev(x_axis)), c(boundary23, rev(boundary12)), 
        col="yellow", border=NA)
# 填充区域3（中间偏上，绿色）
polygon(c(x_axis, rev(x_axis)), c(boundary34, rev(boundary23)), 
        col="green", border=NA)
# 填充区域4（最上方，浅蓝色，可根据需求调整颜色）
polygon(c(x_axis, rev(x_axis)), c(rep(1, length(x_axis)), rev(boundary34)), 
        col="lightblue", border=NA)

# 最后绘制三条边界线，确保线条在填充层上方
lines(boundary12, lwd=2)  # lwd=2设置线宽，可选
lines(boundary23, lwd=2)
lines(boundary34, lwd=2)

如果需要批量调整颜色，也可以把颜色信息放到数据框里，用循环完成填充，逻辑和标注的思路一致。

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