Jak mogę napisać grupy dplyr do oddzielnych plików?

Question

Próbuję utworzyć oddzielne pliki .csv dla każdej grupy w ramce danych zgrupowanej z funkcją group_by dplyra. Do tej pory mam coś w rodzaju:

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

Zapisuje pojedynczy plik .csv zawierający tylko dane z ostatniej grupy. Jak mogę to zmodyfikować, aby zapisać wiele plików .csv, z których każdy ma nazwy plików, które zawierają cyl?

Answer 1

Możesz zawinąć proces zapisu CVV w niestandardowej funkcji w następujący sposób. Zauważ, że funkcja musi zwrócić się data.frame innego zwraca błąd Error: Results are not data frames at positions

To będzie powrót 3 plików csv nazwanych "mtcars_cyl_4.csv", "mtcars_cyl_6.csv" i "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

Jeśli chcesz korzystać z data.table, istnieje nieco mniej przylegający sposób robienia tego.

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] 

Zauważ, że wynikowa tabela nie będzie mieć kolumnę cyl (co byłoby zbędne, ponieważ jest on przechowywany w nazwie pliku, ale może chcesz pozostawić ją w innych powodów).

Jeśli chcesz cyl zostać włączone wyjścia jako kolumny można użyć

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

Answer 3

następujące prace (można pominąć funkcji niestandardowej)

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