R语言：如何在for循环中向DataFrame追加指定行记录？

• 问题根源：你之前的代码HYDRO_data_4[length(HYDRO_data_4)+1]=HYDRO_data_3[2,]无法得到预期结果，是因为在R中length(HYDRO_data_4)返回的是DataFrame的列数（DataFrame本质是由列组成的列表），这段代码实际是在给DataFrame添加新列而非新行。

• 推荐实现方法：

  方法一：用列表收集行后一次性合并（效率更高，适合处理大量文件）

  # 1. 初始化空列表存储目标行数据
  row_list <- list()
  
  # 2. 假设你有存储所有Excel路径的向量，示例如下
  excel_files <- c("data1.xlsx", "data2.xlsx", "data3.xlsx")
  
  # 3. 遍历每个Excel文件
  for (file in excel_files) {
    # 读取Excel生成HYDRO_data_3（需先安装readxl包：install.packages("readxl")）
    library(readxl)
    HYDRO_data_3 <- read_excel(file)
    
    # 提取第2行，drop=FALSE确保结果保持DataFrame结构（避免单列时转为向量）
    target_row <- HYDRO_data_3[2, , drop = FALSE]
    
    # 将目标行加入列表
    row_list[[length(row_list) + 1]] <- target_row
  }
  
  # 4. 合并列表中所有行，生成最终的HYDRO_data_4
  HYDRO_data_4 <- do.call(rbind, row_list)
  

  方法二：循环中逐步用rbind追加（适合处理少量文件）

  # 1. 初始化空DataFrame，需保证列结构与HYDRO_data_3一致
  HYDRO_data_4 <- data.frame()
  
  excel_files <- c("data1.xlsx", "data2.xlsx", "data3.xlsx")
  
  for (file in excel_files) {
    library(readxl)
    HYDRO_data_3 <- read_excel(file)
    
    # 追加第2行到HYDRO_data_4
    HYDRO_data_4 <- rbind(HYDRO_data_4, HYDRO_data_3[2, , drop = FALSE])
  }
  

• 关键注意事项：

  • 确保每个Excel文件读取后的HYDRO_data_3列名、列数完全一致，否则合并时会报错。
  • 必须加上drop = FALSE，防止当HYDRO_data_3只有一列时，提取的行被转为向量，导致rbind失败。

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