lapplyでCSVを生成するデータフレームを解析する

Question

データフレームを取得して.csvファイルに送信しようとしています。私は私のデータをループしようとのみAを選択し、ファイルに出力してい

df <- structure(list(ident = 1:35, code = structure(c(1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 
4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L), .Label = c("A", 
"B", "C", "D", "E", "F"), class = "factor"), Desc = structure(c(3L, 
1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 
3L, 1L), .Label = c("lax", "mia", "nyc"), class = "factor")), .Names = c("ident", 
"code", "Desc"), class = "data.frame", row.names = c(NA, -35L 
)) 

：ここdput(df)を使用して、私のサンプルデータです。

filename <- levels(df$code) 

filename2 <- paste0(filename, "_file.csv") 

コードごとにファイルを書き込むにはlapplyを使用しますか？どんな助けもありがとう！ここで

Answer 1

はtidyverseソリューションです：

あなたは、単にその副作用（ファイルに書き込む）のための機能を使用すると、任意の値を返す必要がないので、歩行機能purrrパッケージからここに適切である：

library(tidyverse) 

walk(unique(df$code), function(x) {write_csv(df %>% filter(code == x), paste0(x, "_file.csv"))})