मैं एक नेस्टेड डेटा फ्रेम (फ़ाइल नाम में निर्दिष्ट विशेषताओं के साथ) से डेटा के साथ अलग एक्सेल फाइल बनाने की कोशिश कर रहा हूं। इसे कैसे प्राप्त किया जा सकता है?
library(tidyverse)
nested<- mtcars %>% group_by(vs, disp) %>% nest()
तुम क्या सोचते हो?
3
Stat.Enthus
16 जिंदा 2021, 22:14
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
mtcars %>% group_by(gear) %>% nest() %>% group_walk(~writexl::write_xlsx(.x, paste0('/tmp/mtcars/gear-', .y$gear, '.xlsx')))