在R中套用功能

Question

此問題是從“交叉驗證”遷移而來的，因為可以在“堆棧溢出”中回答。 遷移 3年前 。 了解更多 。

我已經閱讀了兩個.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"

我需要a4為整數，所以我用了sapply

 s<-sapply(a4, as.numeric)
 mode(s)
[1] "numeric"

但是，問題是，列名消失了。

 names(s)

NULL

以前的所有數據都有列名。 抱歉，由於有600個變量（600個不同的列名），因此無法在此處鍵入。 在a4之前，我為專欄取了個名字。 應用“ sapply”后，名稱顯示為“ NULL”。 當我只輸入s時，我看到了列的名稱，但沒有將它們檢測為列的名稱。 請幫忙。

謝謝。

Answer 1

我認為正確的命令是：

a4 <- as.numeric(a4)