r - 別のリストに基づいてリスト内の要素をカウントする

Question

次のような 2 つのリストがあります。

mylist <- list(a=c(1:5), 
               b = c(5:12), 
               c = c(2:8))

list.id <- list(a=2, b=8, c=5)

mylistの対応する要素よりも大きいの要素の数を数え、その結果をmylist の要素の でlist.id除算したいと考えています。length私はこの関数を書きました。

perm.fun <- perm.fun2 = function(x,y){length(which(x[[i]] < y[[i]]))/length(x[[i]])}

しかし、そうすると：lapply(mylist, perm.fun, list.id)期待した結果が得られません。

ありがとう

Answer 1

を使用すると、インデックス ( 、、 )lapplyをループして、との両方から要素を抽出するために使用できるようにする必要があります。123mylistlist.id

perm.fun <- function(i, x, y) mean(x[[i]] > y[[i]])
lapply(seq_along(mylist), perm.fun, mylist, list.id)

しかしmapply、そのタスクにははるかに優れたツールです。ドキュメントから：

mapply は、各 ... 引数の最初の要素、2 番目の要素、3 番目の要素などに FUN を適用します。

したがって、コードは次のようになります。

mapply(function(x, y) mean(x > y), mylist, list.id)
#         a         b         c 
# 0.6000000 0.5000000 0.4285714