Trích xuất các phần tử từ danh sách lồng nhau chỉ bằng các hàm từ gói purrr

Question

Làm cách nào để trích xuất các phần tử từ danh sách lồng nhau chỉ bằng gói purrr? Trong trường hợp này, tôi muốn lấy một véc tơ của các chặn sau khi tách một data.frame. Tôi đã hoàn thành những gì tôi cần bằng cách sử dụng lapply(), nhưng tôi chỉ muốn sử dụng các hàm purrr package.

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 

Tôi đã thử bản đồ() và at_depth() nhưng dường như không có gì phù hợp với tôi.

Answer 1

Các chức năng map có một số mã viết tắt để lập chỉ mục danh sách lồng nhau. Đoạn trích hữu ích từ trang trợ giúp:

Để lập chỉ mục sâu vào danh sách lồng nhau, hãy sử dụng nhiều giá trị; c ("x", "y") tương đương với z [["x"]] [["y"]].

Vì vậy, sử dụng mã cho chỉ số lồng cùng với map_dbl, làm giảm tới một vector, bạn chỉ có thể làm:

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

     4  6  8 
39.57120 28.40884 23.86803 

Tôi cũng thấy blog post này giới thiệu purrr 0.1.0 hữu ích, vì nó đã đưa ra một thêm một vài ví dụ về viết tắt viết tắt mà tôi đã sử dụng.