Как написать группы dplyr для разделения файлов?

Question

Я пытаюсь создать отдельные .csv-файлы для каждой группы в фрейме данных, сгруппированном с функцией group_by dplyr. До сих пор у меня есть что-то вроде

by_cyl <- group_by(mtcars, cyl) 
do(by_cyl, write_csv(., "test.csv")) 

Как и ожидалось, это записывает один. CSV-файл, содержащий только данные из последней группы. Как я могу изменить это, чтобы написать несколько CSV-файлов, каждый с именами файлов, которые включают цил?

Answer 1

Вы можете обернуть процесс записи csv в пользовательскую функцию следующим образом. Обратите внимание, что функция должна возвращать в data.frame еще он возвращает ошибку Error: Results are not data frames at positions

Это будет возвращать 3 CSV файлы с именем «mtcars_cyl_4.csv», «mtcars_cyl_6.csv» и «mtcars_cyl_8.csv»

customFun = function(DF) { 
write.csv(DF,paste0("mtcars_cyl_",unique(DF$cyl),".csv")) 
return(DF) 
} 

mtcars %>% 
group_by(cyl) %>% 
do(customFun(.)) 

Answer 2

Если вы были готовы использовать data.table, то это немного менее неуклюжий способ сделать это.

require(data.table) 
# Because this is a built in table we have to make a copy first 
mtcars <- mtcars 
setDT(mtcars) # convert the data into a data.table 

mtcars[, write.csv(.SD, paste0("mtcars_cyl_", .BY, ".csv")), by = cyl] 

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

Если вы хотите цил быть включены в выходные данные в виде столбца можно использовать

mtcars[, write.csv(c(.BY,.SD), paste0("mtcars_cyl_", .BY, ".csv")), by=cyl] 

Answer 3

следующие работы (вы можете пропустить пользовательскую функцию)

library(dplyr) 
library(readr) 
group_by(mtcars, cyl) %>% 
    do(write_csv(., paste0(unique(.$cyl), "test.csv")))