作者mickey1231 (国父)
看板R_Language
标题[问题] function栏位处理疑问
时间Mon Jul 10 23:22:37 2017
[问题类型]:
程式谘询(我想用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
[关键字]:
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 49.159.162.155
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1499700160.A.9EF.html
※ 编辑: mickey1231 (49.159.162.155), 07/10/2017 23:23:32
※ 编辑: mickey1231 (49.159.162.155), 07/10/2017 23:24:32
※ 编辑: mickey1231 (49.159.162.155), 07/10/2017 23:25:15
※ 编辑: mickey1231 (49.159.162.155), 07/10/2017 23:26:24
1F：推 locka: sapply(try,function(x) ifelse(is.na(data[,x]),"missing" 07/11 00:27
2F：→ locka: ,data[,x])) 07/11 00:27
3F：→ mickey1231: 感谢帮忙！！ 07/14 22:22