R 在列表中的子列表中，计算某个保留上方的元素数

我有下面的子列表，我想找出每个子列表>1中的位置，并得出一个与结果相同结构的列表

L <- list ( list( c ( 1 ,  1 ,  1 ,  1 ,  1 ,  1 ,  1 ,  1 ,  1 ,  1 ,139 ,  1  , 1 ,139 ,  1 ,139 ,139 , 1 ,139 ,139 ,139  , 1  , 1  , 1  , 1  , 1  , 1  , 1  , 1  , 1) , c( 1 ,3 ,1 ,1 ,3 ,1 ) , c( 74 ,74  ,1 ,74 ,74 ,74  ,1  ,1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ,74 , 1 , 1 ,74 , 1 ,74 ,74  ,1) , c( 7 ,7 ,7 ,1 ,1 ,1, 1, 1, 1, 1, 1 ,1))  , list ( c ( 1 ,1 ,139, 1 ,1 ,139 ,1 ,1 ,139 ,  1 ,  1 ,139 ,  1 ,  1 ,139 ,  1 ,  1 ,139 ,139  , 1 ,139  , 1  , 1 ,139 , 1 , 1 ,139 , 1 , 1 ,139), c( 1 ,1 ,3 ,1 ,1 ,3 ) , c(  1 , 1 ,74 ,74 , 1 ,74  ,1 , 1 ,74 , 1 , 1 ,74 , 1 , 1 ,74 , 1 , 1 ,74 , 1 , 1 ,74 ,74 , 1 ,74) , c(  7, 1, 7, 1, 1, 7, 1, 1, 7, 1, 1, 7 ))  ,  list ( c ( 1 ,128 ,1 ,1 ,128 ,1 ,128 ,128 ,1 ,128 ,128 ,128 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 , 1 ,128, 1) , c( integer(0) ), c( integer(0) ) , c( integer(0) ) , c( integer(0) ) , c( integer(0) ))  , list (c( 1 ,1 ,128 ,1 ,1 ,128 ,128 ,1 ,128 ,128 ,1 ,128 ,1 ,1 ,128 ,1 ,1 ,128 ,1 ,1 ,128 ,1   ,1 ,128 ) , c( integer(0) ), c( integer(0) ) , c( integer(0) ) , c( integer(0) ) , c( integer(0) )))

L也许你想要

rapply(L, function(x) which(x>1), how = "list")

rapply(L, function(x) which(x>1), how = "list")