[問題] apply 取代for

[disney82231 (小刀會序曲)]

[問題類型]:

程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)


[軟體熟悉度]:
入門(寫過其他程式，只是對語法不熟悉)

[問題敘述]:
用for 寫了一個迴圈，想用apply寫出一樣的結果

另外想請問，在多數情況下，apply都能取代for嗎


[程式範例]:
for (i in 2:10){
  x$v1[x[,i]==1] <- i }
}
若每列x的第i行=1時，x每列的第一行改成i
[關鍵字]:

 apply for

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 120.126.194.162
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1522306793.A.5DA.html
→ andrew43: 看起來就不像是apply。apply是逐列或逐行做同一個func
→ andrew43: 你的註解和code似乎不是同義的。
→ clansoda: Hi, I suggest you to watch this article #1QhBLjUr
→ clansoda: I have explained when and why you should use apply
→ clansoda: or for loop in a given scenario
推 vfgce: 你有跑過你寫的東西嗎?
→ vfgce: 你這樣是把第10行值為1的相對V1值設為10...
推 vfgce: 對不起,看錯了...
推 vfgce: 有不只一個i行=1時,第一行如何取?
我要回圈的行數，裡面只有0跟1而已，且同一列中2到10行只會有一個1~
※ 編輯: disney82231 (120.126.194.162), 03/29/2018 19:11:57
推 vfgce: x1 = apply( x[,2:10],1, function(a) which(a==1)+1 )
→ vfgce: 再令x$v1=x1, 假設每列2-10行中都會也只有一個1,
推 vfgce: 但問題再變過就不見得能用這種方法處理.
推 vfgce: 一般若是涉及索引,用for 比較容易寫...apply不一定能寫.
推 vfgce: 對了,一般在apply中不修改變數值,而是傳回值...
剛剛試了大大的CODE，這樣可以改，但原本第一行是1的話就會變成numeric(0)
不過還是謝謝你，所以我這種情況的話用for是最適合的嗎
※ 編輯: disney82231 (120.126.194.162), 03/29/2018 19:54:47
推 vfgce: 有些東西想不出來怎麼用apply就只能用for..
→ vfgce: 但很多時候，是不夠了解 apply怎麼用...
推 celestialgod: 這個用vectorize加速比較好，apply不適用
推 celestialgod: 晚點傳code
→ celestialgod: 測了一下... 其實迴圈改一改就好XDD
→ obarisk: 這個問題用diag可以解