如何在R函数中传入字符串列名生成ggplot2直方图并解决对应报错

• 第一处问题：代码里用单中括号pitchbook[col_name]取单列时，哪怕只取一列，返回的仍然是带list属性的data.frame结构，不是纯数值向量，后续把这个结构传给mean()、sd()计算统计量时，就会触发'list' object cannot be coerced to type 'double'的错误，连带弹出argument is not numeric or logical: returning NA的警告。
• 第二处问题：旧版aes_string在新ggplot2版本中兼容性持续下降，传字符串列名时容易出现数据映射解析异常。

norm.plot <- function(col_name, bw) {
  # 用双中括号提取列，直接得到数值向量，提前剔除缺失值
  temp_vec <- na.omit(pitchbook[[col_name]])
  # 构建临时绘图数据框
  temp_df <- data.frame(x = temp_vec)

  ggplot(temp_df, aes(x = .data$x)) + 
    geom_histogram(color = "blue", fill = "cyan", binwidth = bw) + 
    stat_function(
      fun = function(x) {
        dnorm(
          x,
          mean = mean(temp_vec),
          sd = sd(temp_vec)
        ) * length(temp_vec) * bw
      }
    )
}

• 取列将单中括号替换为双中括号[[col_name]]：双中括号会直接提取列对应的原子向量，不会保留data.frame的list结构，从根源解决统计量计算时的类型转换报错。
• 提前把清洗完的非空数值向量存为独立对象，后续计算均值、标准差、样本量时直接引用这个向量，不需要反复从数据框中取列，大幅降低类型匹配出错的概率。
• 弃用旧的aes_string()，改用aes(x = .data$x)的写法：基于rlang的.data代词可以完美适配字符串传入的列名，在新旧版本ggplot2中都能稳定完成数据映射。
• 原来用nrow(temp_df)统计样本数的逻辑替换为length(temp_vec)，和直方图的计数口径完全一致，不会出现正态曲线缩放比例错误的问题。

如果需要兼容更早版本的ggplot2，无法使用.data代词的场景，可以将映射部分改回aes_string(x = col_name)，但核心的双中括号取列的逻辑不能改，否则仍然会触发类型报错。

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