根据报头开始的位置将多个CSV读入R，然后编译

# 加载必要的库
library(dplyr)

# 定义一个函数来读取CSV文件，考虑不同的报头位置
read_csv_with_header <- function(file_path, header_row = 1) {
  read.csv(file_path, header = header_row == 1)
}

# 假设我们有一个文件路径列表和一个对应的报头行号列表
file_paths <- c("file1.csv", "file2.csv", "file3.csv")
header_rows <- c(1, 3, 1) # 表示第一个文件报头在第一行，第二个文件报头在第三行，以此类推

# 使用lapply循环读取所有CSV文件
data_frames <- lapply(seq_along(file_paths), function(i) {
  read_csv_with_header(file_paths[i], header_rows[i])
})

# 将所有读取的数据框合并为一个大的数据框
combined_data <- bind_rows(data_frames)

# 查看合并后的数据框
print(combined_data)

read.csv(file_path, fileEncoding = "UTF-8")

# 处理缺失值
data_clean <- na.omit(combined_data)

# 处理异常值（示例：移除某一列中超过3个标准差的值）
data_clean <- data_clean %>%
  mutate(across(where(is.numeric), ~ifelse(abs(.) > 3 * sd(.), NA, .))) %>%
  na.omit()