R tidyverse迭代绘制data.frame多列箱线图函数报错求助

你的代码有4个核心问题，直接触发报错：

• 循环写法错误：for (i in ncol(df))只会让i取到「列总数」这一个值，比如4列的数据集i永远等于4，不会遍历1~4所有列。
• tibble索引特性导致类型错误：tibble用[ ,i]取单列时默认不降级为向量，返回的仍是单列tibble（本质是list类型），ggplot无法将list类型映射为y轴数值，所以抛出is.finite相关的类型错误。
• 标签写法错误：你写的"Boxplot of 'colnames(df[ ,i])'"是固定字符串，不会动态替换为实际列名。
• 语法位置错误：Sys.sleep(2)被写在了ggplot的图层叠加链内部，会被当成ggplot图层解析，属于语法错误；另外函数定义的y参数全程未被使用。

下面的代码兼容data.frame和tibble输入，同时批量生成箱线图和直方图，直接运行即可：

library(ggplot2)

iterate_eda_plots <- function(df) {
  # 遍历所有列索引
  for (i in seq_along(df)) {
    col_name <- colnames(df)[i]
    
    # 绘制箱线图
    box_p <- ggplot(df, aes(x = "", y = .data[[col_name]])) +
      geom_boxplot(width = 0.6) +
      labs(
        title = paste0("Boxplot of ", col_name),
        x = NULL,
        y = col_name
      )
    print(box_p)
    Sys.sleep(2)
    
    # 绘制直方图
    hist_p <- ggplot(df, aes(x = .data[[col_name]])) +
      geom_histogram(bins = 30, fill = "#2c7fb8", color = "white") +
      labs(
        title = paste0("Histogram of ", col_name),
        x = col_name,
        y = "Count"
      )
    print(hist_p)
    Sys.sleep(2)
  }
}

# 传入你的tibble调用
iterate_eda_plots(cont_ptchar_b)

• 代码里用的.data[[col_name]]是ggplot2官方推荐的动态列映射写法，不需要额外处理tibble和data.frame的索引差异，不会出现类型错误。
• 如果不需要逐张弹窗显示，想把所有图存下来后续拼版或导出，可以提前创建一个空列表，循环里把生成的图按列名存在列表里即可。
• 如果你非要用df[,i]的索引方式，需要加drop = TRUE参数强制转成向量：df[,i, drop = TRUE]，但这种写法容错率更低，不推荐。

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