如何用R的循环处理数据框

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想请教各位大神，如何用R的循环功能做下面的操作：
uk$date_1 <- as.Date(uk$sdate_1,"%d-%b-%y")
uk$date_2 <- as.Date(uk$sdate_2,"%d-%b-%y")
uk$date_3 <- as.Date(uk$sdate_3,"%d-%b-%y")
....
uk$date_212 <- as.Date(uk$sdate_212,"%d-%b-%y")
以及
uk$disease_date <- NA

uk$disease_date <- ifelse(uk$disease_1=="yes", uk$date_1, uk$disease_date)
uk$disease_date <- ifelse(uk$disease_2=="yes", uk$date_2, uk$disease_date)
uk$disease_date <- ifelse(uk$disease_3=="yes", uk$date_3, uk$disease_date)
uk$disease_date <- ifelse(uk$disease_4=="yes", uk$date_4, uk$disease_date)
...
uk$disease_date <- ifelse(uk$disease_212=="yes", uk$date_212, uk$disease_date)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：处理数据 如何用 数据框 date ATE 数据清洗 循环 数据框 赋值

ids <- (substr(names(dat) , 1, 4) == "Date")
dat[, ids] <- sapply(dat[, ids], function(x) as.Date(x, "%d-%b-%y") )