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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

循环语句如下：
for(i in 4:16){data[,i]=as.numeric(as.character(data[,i]))}

可以用apply家族的函数或者其他函数简化吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

data[,c(4:16)]=as.numeric(as.character(data[,c(4:16)])

其实不懂为啥要as.character再as.numeric，本来是什么格式呢，是factor吗？
library(tidyverse)
data %>% mutate_at(4:16, function(x) as.numeric(as.character(x))

zerofung 发表于 2018-8-6 21:08
其实不懂为啥要as.character再as.numeric，本来是什么格式呢，是factor吗？
library(tidyverse)
data %>% ...

感谢你的回复。本来就是character的格式。至于为什么这样我也不知道，但是不这么写，就转不过来。

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)])

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

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)])

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