如何用lapply将文件加载至全局环境？加载报错求解

嘿，我来帮你理清这个问题～

为什么load()会报错？ #

首先明确：load()函数并没有被弃用，但它的作用是加载R原生的保存文件（比如.RData/.rda格式）——这些文件是用save()函数生成的二进制文件，专门用来存储R对象。而你处理的是csv.gz格式的文本文件，完全不是一个类型，所以会出现"bad restore file magic number"的错误，本质是load在文件开头找不到它能识别的R文件标识（也就是报错里提到的magic number）。

正确的实现方法：把lapply读取的数据框加载到全局环境 #

你已经用lapply成功读取了csv文件，得到了一个数据框的列表，现在只需要把这个列表里的每个元素（数据框）导出到全局环境就行，推荐两种简单的方法：

方法1：用list2env()（最简洁） #

先给你的列表LEHD2002的每个元素起个名字（比如用文件名去掉后缀作为数据框名），然后用list2env把列表转成全局环境里的独立对象：

# 给列表元素命名（去掉.csv.gz后缀）
names(LEHD2002) <- gsub("\\.csv.gz$", "", to.readin)
# 将列表中的数据框导出到全局环境
list2env(LEHD2002, envir = .GlobalEnv)

方法2：在lapply里直接创建全局环境对象 #

如果不想先存储整个列表，也可以在读取文件的同时，直接把每个数据框放到全局环境里：

to.readin <- list.files(pattern="2002.csv")
lapply(to.readin, function(x) {
  # 读取压缩csv文件
  df <- read.table(gzfile(x), header = TRUE, sep = ",", colClasses = "numeric", stringsAsFactors = FALSE)
  # 生成数据框的名称（去掉文件后缀）
  df_name <- gsub("\\.csv.gz$", "", x)
  # 将数据框赋值到全局环境
  assign(df_name, df, envir = .GlobalEnv)
})

补充说明 #

你提到gzfile(x)把.gz转成csv，这一步是完全正确的——read.table可以通过gzfile直接读取压缩的csv文件，但这和load函数的用途完全不搭边，load只认R的原生保存文件，可别搞混啦～

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