मैं एक नेस्टेड डेटा फ्रेम (फ़ाइल नाम में निर्दिष्ट विशेषताओं के साथ) से डेटा के साथ अलग एक्सेल फाइल बनाने की कोशिश कर रहा हूं। इसे कैसे प्राप्त किया जा सकता है?

library(tidyverse)
nested<- mtcars %>%  group_by(vs, disp) %>% nest()

तुम क्या सोचते हो?

r
3
Stat.Enthus 16 जिंदा 2021, 22:14
क्या आपके पास फ़ाइल नामों के लिए अलग वेक्टर है
 – 
akrun
16 जिंदा 2021, 22:15
नहीं, क्या मुझे एक बनाना चाहिए?
 – 
Stat.Enthus
16 जिंदा 2021, 22:16
मैंने इसे vars . द्वारा समूह से निकालने के बारे में सोचा
 – 
Stat.Enthus
16 जिंदा 2021, 22:17
mtcars %>% group_by(gear) %>% nest() %>% group_walk(~writexl::write_xlsx(.x, paste0('/tmp/mtcars/gear-', .y$gear, '.xlsx')))
 – 
alistaire
16 जिंदा 2021, 22:25

1 उत्तर

सबसे बढ़िया उत्तर

हम iwalk या imap का उपयोग कर सकते हैं

library(purrr)
library(openxlsx)
library(stringr)
imap(nested$data, ~ write.xlsx(.x, file = str_c('file', .y, '.xlsx')))

या यदि हम फ़ाइल नाम के रूप में समूहों के मान रखना चाहते हैं

pmap(nested, ~ write.xlsx(..3, 
          file = sprintf('file_%d_%d.xlsx', ..1, ..2)))
1
akrun 16 जिंदा 2021, 22:23
धन्यवाद .. और अगर मैं अधिक घोंसले के शिकार संस्करण जोड़ता हूं, तो बस 1 का उपयोग करें... 2.. 3.. 4...?
 – 
Stat.Enthus
17 जिंदा 2021, 12:40
@Stat.Enthus हाँ, आप उस क्रमांकन को घटना के क्रम में कर सकते हैं
 – 
akrun
17 जिंदा 2021, 20:46