R中的sappy函数

我读了两个.csv文件并做了一些编辑

a1<-read.csv("2013.csv",header=T, na.strings = c("NULL","PrivacySuppressed"))

a2<-a1[,441,drop=F]

a3<-a1[,-441,drop=F]

a4<-cbind(a1,a2)

a4<-a4[, colSums(is.na(a4)) != nrow(a4)]

 mode(a4)

[1] "list"

以前的所有数据都有列名。抱歉，无法在此处键入，因为有600个变量（600个不同的列名）。我的专栏在a4之前都有名字。在apply“sapply”之后，名称显示为“NULL”。当我只输入s时，我会看到列的名称，但它不会将它们检测为列的名称。请帮忙

---

谢谢。

我认为正确的命令是：

a4 <- as.numeric(a4)

---

a4我认为这是一个更适合stackoverflow的问题。请尝试
colnames
，因为
sapply（）
返回一个矩阵。如果需要整数，则使用as.integer（）

as.numeric（）

不会强制为整数。但您真正想要的可能是

a4[]我尝试了lappy函数。所以我刚刚测试了模式（a4），它显示“列表”。如何将其更改为矩阵形式或data.frame？我尝试了as.matrix或as.data.frame之类的函数，结果显示有错误。“NA”值与此有关吗？我的数据中有一些NA值。我认为这就是模式返回为“NULL”的原因。是否要覆盖
a4
<代码>a4[]
 names(s)

NULL

a4 <- as.numeric(a4)