[問題] function欄位處理疑問

[mickey1231 (國父)]

[問題類型]:
程式諮詢(我想用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://www.ptt.cc/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
推 locka: sapply(try,function(x) ifelse(is.na(data[,x]),"missing"
→ locka: ,data[,x]))
→ mickey1231: 感謝幫忙！！