作者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/m.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