如何对数据框列表执行类似单数据框的子集与迭代预处理操作

1. 对列表中每个DataFrame删除前3行 #

对应单个DataFrame中 All_sample_obs <- datasets[-1:-3,] 的操作，用lapply遍历整个列表，对每个子DataFrame执行行筛选：

# 遍历列表，删除每个DataFrame的前3行
All_sample_obs_list <- lapply(datasets, function(df) df[-1:-3, ])

2. 迭代实现预处理步骤 #

将原单个DataFrame的三个预处理步骤转为对列表中每个元素的迭代操作，把步骤封装到匿名函数中，通过lapply批量执行：

# 批量执行预处理：转numeric类型 → 转DataFrame → 保留3位小数
processed_datasets <- lapply(All_sample_obs_list, function(df) {
  # 第一步：将每列转为数值型
  numeric_cols <- lapply(df, as.numeric)
  # 第二步：转换为DataFrame格式
  df_formatted <- as.data.frame(numeric_cols)
  # 第三步：四舍五入保留3位小数
  df_rounded <- round(df_formatted, 3)
  return(df_rounded)
})

简化写法（需加载tidyverse包）

如果习惯链式操作，可借助管道符简化代码：

library(tidyverse)

processed_datasets <- lapply(All_sample_obs_list, function(df) {
  df %>% 
    lapply(as.numeric) %>% 
    as.data.frame() %>% 
    round(3)
})

合并两步操作（可选）

若不需要保留中间结果All_sample_obs_list，可直接将行筛选和预处理合并为一次遍历：

processed_datasets <- lapply(datasets, function(df) {
  df[-1:-3, ] %>% 
    lapply(as.numeric) %>% 
    as.data.frame() %>% 
    round(3)
})

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