配列とスカラーでapplyを使用するにはどうすればよいですか？

Question

私は配列

a = c(1,2,3,1,2,3,1,2,3,1,2,3) 

を持っている場合、私は1の各スカラーに「これ」機能を適用したいと思います：、私はlapply、適用すると、この操作をベクトルんか3

l = list() 
for(i in 1:3){ 
l[[i]] = which(a == i) 
} 

地図？

Answer 1

lapplyの主な引数は、最終的なリスト要素の次元でなければなりません。どちらがあなたがそう、あなたのfor例ではオーバーループしている：あなたが使用することができます

a = c(1,2,3,1,2,3,1,2,3,1,2,3) 
lapply(1:3, function(x) which(a == x)) 

また、匿名関数にaをコーディングしない場合：

lapply(1:3, function(x, y) which(y == x), y = a)