R语言循环批量处理数据框删首行设列名报错求解

• 现有列表对象clean_data_2009，内含12个月度数据框，命名规则为wireless_mmm_YY：YY为年份缩写（如2009年对应09），mmm为月份英文缩写。
• 需求为对每个数据框执行两步操作：先删除第一行，再将处理后数据的首行转换为列名。单条执行正常的代码如下：

clean_data_2009$wireless_jan_09 <- clean_data_2009$wireless_jan_09[-1,] %>% row_to_names(row_number = 1)

• 尝试通过paste拼接操作语句编写循环批量处理时，使用get函数读取拼接字符串触发报错，报错信息如下：

[1] "09_jan"
[1] "clean_data_2009$wireless_jan_09"
[1] "clean_data_2009$wireless_jan_09[-1, ]"
Error in get(paste(paste(list_dt, m, y, sep = "_"), rows2del, sep = "")) : 
  object 'clean_data_2009$wireless_jan_09[-1, ]' not found

原代码存在三个核心问题：

1. get()仅能识别独立存在的对象名，无法解析带$取子集、[-1,]索引操作的拼接字符串。将索引操作拼入字符串传给get时，R会把整串内容当成单个对象名去环境中查找，必然找不到目标。
2. 无法直接对get()返回的临时对象赋值，这类赋值不会修改原列表内存储的内容。
3. R的$操作符后仅支持硬编码的元素名，无法识别拼接生成的字符串变量，通过变量名提取列表元素必须使用[[ ]]双中括号索引。

不要拼接带操作逻辑的字符串传给get，直接通过列表名索引提取对应元素，处理完成后赋值回原位置即可，可正常运行的循环代码如下：

library(dplyr)
library(janitor) # row_to_names函数来自janitor包，未安装需先执行install.packages("janitor")

# 配置基础参数
month_vec <- c("jan", "feb", "mar", "april", "may", "june", "july", "aug", "sep", "oct", "nov", "dec")
year_vec <- c("09") # 后续需要处理2010、2011年数据时，直接往向量中追加对应年份缩写即可

# 批量循环处理
for (y in year_vec) {
  for (m in month_vec) {
    # 拼接当前待处理的数据框名称
    df_name <- paste0("wireless_", m, "_", y)
    # 提取数据、执行删行+设置列名操作
    temp_df <- clean_data_2009[[df_name]][-1, ] %>% 
      row_to_names(row_number = 1)
    # 将处理后的数据写回原列表对应位置
    clean_data_2009[[df_name]] <- temp_df
  }
}

更简洁的无循环写法：如果列表内全部是需要处理的无线数据框，可直接用lapply批量遍历所有元素，无需逐个拼接数据框名称，代码容错性更高：

clean_data_2009 <- lapply(clean_data_2009, function(df) {
  df[-1, ] %>% row_to_names(row_number = 1)
})

如果列表内混有其他不需要处理的元素，只需将lapply的遍历对象替换为目标数据框的名称向量即可。

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