केवल purrr पैकेज

Question

से फ़ंक्शंस का उपयोग करके नेस्टेड सूची से तत्व निकालें I purrr पैकेज का उपयोग करके केवल नेस्टेड सूची से तत्व कैसे निकालें? इस मामले में मैं डेटा.फ्रेम को विभाजित करने के बाद इंटरसेप्ट्स का वेक्टर प्राप्त करना चाहता हूं। मैंने पूरा किया है जो मुझे lapply() का उपयोग करने की ज़रूरत है, लेकिन मैं केवल purrr पैकेज का उपयोग करना चाहता हूं।

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 

मैंने नक्शा() और at_depth() की कोशिश की है लेकिन कुछ भी मेरे लिए काम नहीं कर रहा था।

Answer 1

map फ़ंक्शंस में नेस्टेड सूचियों को अनुक्रमणित करने के लिए कुछ शॉर्टेंड कोडिंग है। सहायता पृष्ठ से एक सहायक स्निपेट:

घोंसला वाली सूची में गहराई से अनुक्रमणित करने के लिए, एकाधिक मानों का उपयोग करें; सी ("एक्स", "वाई") जेड [["x"]] [["y"]] के बराबर है।

तो नेस्ट अनुक्रमित के लिए कोड का उपयोग कर map_dbl के साथ है, जो एक वेक्टर को कम कर देता है, तो आप बस कर सकते हैं:

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

     4  6  8 
39.57120 28.40884 23.86803 

मैंने यह भी पाया इस blog post शुरू purrr 0.1.0 उपयोगी है, क्योंकि यह एक दिया शॉर्टेंड कोडिंग का कुछ और उदाहरण जो मैंने उपयोग किया था।