（）がない場合）、それは<br> 3を動作させるための方法はあり

Question

は私が

1）なぜmap_ifリスト
2）内で動作しません。助けてください、リスト内に動作しない、何代替品です

ありがとうございます。

library(dplyr) 
library(purrr) 

cyl <- split(mtcars, mtcars$cyl) 

# This works 
map_if(mtcars, is.numeric, mean) 

# This does not work 
map_if(cyl, is.numeric, mean) 

Answer 1

あなたは1つのレバー下にマッピングする必要があるため、だから列がレベル2にある操作を行うことができます。

map(cyl, ~map_if(., is.numeric, mean)) 

Or：

map(cyl, map_if, is.numeric, mean) 

at_depth(cyl, 2, mean) 

Answer 2

あなたはlapplyを試すことができます。

lapply(cyl, function(x) map_if(x, is.numeric, mean)) 

あなたはdata.framesのlist上map_if()を使用しようとしています。述語は、data.frameの各列ではなく、それぞれdata.frameに対してテストされます。

is.numeric(cyl[[1]]) 
# [1] FALSE 

そして、それがあるためである...

is.data.frame(cyl[[1]]) 
# [1] TRUE