У меня проблема с write_excel_csv в разделении фрейма данных и сохранении вывода

Question

У меня есть фрейм данных со следующими столбцами (Филиал, Регион, Продажи, Склад), которые мне нужно разделить в зависимости от значений в столбце региона, чтобы я генерировал фреймы данных (фрейм данных для каждого региона).

Я использовал этот код

lapply(names(s), function(nm)

write_excel_csv(s, "G:/19011/"+paste(nm,",",collapse = null)+".csv"  , col_names = FALSE, quote = "none", append = FALSE)

, но он не генерирует файлы

Примечание: (это должно быть с write_excel_csv), потому что другая функция write.csv и подобные не может закодировать арабский c язык

Answer 1

Используя gapminder::gapminder в качестве примера набора данных и purrr::iwalk, это может быть достигнуто следующим образом:

s <- gapminder::gapminder 
s <- split(s, s$continent)

purrr::iwalk(s, ~ readr::write_excel_csv(.x, paste0("G:/19011/", .y, ".csv") , col_names = FALSE, quote = "none", append = FALSE))