麻烦将我一下这个循环简化，转变成apply家族函数来处理

nuomin 发表于 2018-8-6 21:04
data[,c(4:16)]=as.numeric(as.character(data[,c(4:16)])

尝试了一下，是可以的。谢谢

nuomin 发表于 2018-8-6 21:04
data[,c(4:16)]=as.numeric(as.character(data[,c(4:16)])

尝试了一下，是可以的。谢谢

nuomin 发表于 2018-8-6 21:04
data[,c(4:16)]=as.numeric(as.character(data[,c(4:16)])

尝试了一下，是可以的。谢谢

露露的家园2012 发表于 2018-8-7 10:03
尝试了一下，是可以的。谢谢

卡住了？回复九次了。

nuomin 发表于 2018-8-7 14:36
卡住了？回复九次了。

是的，发不出去了，就连续点了几次，待会过来看，就变成这样了

1. lapply(data[,c(4:16)], function(v){return(as.numeric(as.character(v)))})

复制代码

data[,4:16]<-apply(data[,4:16],2,function(x){as.numeric(as.character(x))})
用apply就是什么这种，略繁琐