Yuvalanmış listeden öğeleri yalnızca purrr paketinden işlevler kullanarak ayıkla

Question

Yuvalanmış bir listeden öğeleri yalnızca purrr paketi kullanarak nasıl ayırım? Bu durumda bir data.frame ayrıldıktan sonra bir kesişme vektörü almak istiyorum. Ben lapply() kullanarak ihtiyacım olan şeyi başardım, ancak sadece purrr paketini kullanmak istiyorum.

library(purrr) 
mtcars %>% 
split(.$cyl) %>% 
map( ~lm(mpg ~ wt, data = .)) %>%  # shorthand NOTE: ~ lm 
lapply(function(x) x[[1]] [1]) %>% # extract intercepts <==is there a purrr function for this line? 
as_vector()        # convert to vector 

ben harita() ve at_depth() denedim ama hiçbir şey benim için çalışıyor gibiydi.

Answer 1

map işlevlerinin iç içe geçmiş listeleri dizine eklemek için bazı kısa kodlama kodlamaları vardır. Yardım sayfasındaki faydalı bir pasaj:

İç içe geçmiş bir listeyi derinlemesine endekslemek için birden fazla değer kullanın; c ("x", "y") , z [["x"]] [["y"]] öğesine eşdeğerdir.

Yani bir vektöre azaltır map_dbl birlikte iç içe endeksler için kodu kullanarak, sadece yapabilirsiniz:

mtcars %>% 
    split(.$cyl) %>% 
    map(~lm(mpg ~ wt, data = .)) %>% 
    map_dbl(c(1, 1)) 

     4  6  8 
39.57120 28.40884 23.86803 

Ben de bir verdi bu blog post, 0.1.0 purrr yararlı tanıtan bulundu Ben kullanarak bittim shorthand kodlama birkaç örnek.