ggobject添加多条geom_vline仅保留最后一条的问题解决问询

问题原因 #

你的代码仅显示最后一条垂直参考线的核心原因是 ggplot2的aes()映射采用延迟求值机制：循环过程中你在aes()内引用了迭代变量i，等到绘图真正执行时，i已经是循环结束后的最终值，导致所有参考线的坐标、颜色都取了最后一次迭代的数值。

解决方案 #

有两种常用修复方式，更推荐第二种无需循环的简洁写法：

方案1：修改循环内代码，移除aes()映射

由于你传入的x轴截距、颜色都是固定值，不需要映射数据框内的变量，直接作为geom_vline()的普通参数传入即可，不需要套在aes()里：

# vlines部分修改为
for(i in 0:(length(as_vert_line)-1)){
  plotobj <- plotobj + geom_vline(xintercept = as_vert_line[i+1], 
                                  color = color_list[i%%(length(color_list))+1], 
                                  size=1.2)
}

方案2（推荐）：完全去掉循环，批量生成参考线

geom_vline()原生支持传入向量批量生成多条线，无需循环，代码更简洁执行效率更高：

# 完全替换原有vlines循环代码
# 自动循环配色，保证颜色数和参考线数量匹配
line_colors <- rep(color_list, length.out = length(as_vert_line))
plotobj <- plotobj + geom_vline(xintercept = as_vert_line, 
                                color = line_colors, 
                                size = 1.2)

修复后完整函数 #

make_histogram <- function(data, title, xlabel, ylabel, as_vert_line, color_list){
  #storgis rule
  minDiff = min(data)
  maxDiff = max(data)
  m = round(1+3.3*log(length(data), exp(1)))
  ran = maxDiff - minDiff
  amp = ran/m
  nC = round(ran/amp)

  #histogram
  plotobj <- ggplot(data.frame(seq(1:length(data)), data), aes(x=data))+
    geom_histogram(bins=nC, color="white")+
    theme_classic()+
    ggtitle(title)+
    xlab(xlabel)+
    ylab(ylabel)+
    theme(legend.position = "none")
    
  # 批量生成参考线
  line_colors <- rep(color_list, length.out = length(as_vert_line))
  plotobj <- plotobj + geom_vline(xintercept = as_vert_line, 
                                  color = line_colors, 
                                  size = 1.2)

  print(plotobj)
  return(plotobj)
}

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