[问题] function字段处理疑问

楼主: mickey1231 (国父)   2017-07-10 23:22:37
[问题类型]:
程式咨询(我想用R 做某件事情,但是我不知道要怎么用R 写出来)
[软件熟悉度]:
入门(写过其他程式,只是对语法不熟悉)
[问题叙述]:
我的资料有20个字段,a1~a20
想挑出特定的字段做相同的运算跟补值
用了lapply、跟function()两种写法都有错误
lapply会把原本字段所有的值都变成Missing
function error 显示Error in `$<-.data.frame`(`*tmp*`, "x", value = character(0)) :
请问我该怎么修改比较好?
感谢~
[程式范例]:
1.lapply
try=c('a1','a2','a5','a6','a13','a19')
data[try]=lapply(data[try],
function(x) x[which(is.na(x)>0)]="Missing")
2.function()
missing=function(x)
{
data$x[which(is.na(data$x)>0)]="Missing"
}
missing(a1)
[环境叙述]:
R 3.4
[关键字]:
作者: locka (locka)   2017-07-11 00:27:00
sapply(try,function(x) ifelse(is.na(data[,x]),"missing",data[,x]))
楼主: mickey1231 (国父)   2017-07-14 22:22:00
感谢帮忙!!

Links booklink

Contact Us: admin [ a t ] ucptt.com