[問題] function欄位處理疑問

看板R_Language作者 (國父)時間8年前 (2017/07/10 23:22), 8年前編輯推噓1(102)
留言3則, 2人參與, 最新討論串1/1
[問題類型]: 程式諮詢(我想用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

07/11 00:27, , 1F
sapply(try,function(x) ifelse(is.na(data[,x]),"missing"
07/11 00:27, 1F

07/11 00:27, , 2F
,data[,x]))
07/11 00:27, 2F

07/14 22:22, , 3F
感謝幫忙!!
07/14 22:22, 3F
文章代碼(AID): #1POvl0dl (R_Language)
文章代碼(AID): #1POvl0dl (R_Language)