Create separate csv files of the data for each level of some categorical column

split_df_csv.R

library(tidyverse)

# Nest iris by Species
iris_nest <- iris %>%
  group_by(Species) %>%
  nest()

# Get the data list and set the names of the list to Species
# write_csv for each df in the data list with its name as the filename
iris_nest %>%
  pull(data) %>%
  set_names(iris_nest$Species) %>%
  walk2(names(.), ~ write_csv(.x, path = str_c('data/', .y, '.csv')))


# Another way to do the nesting is
iris %>%
  nest(-Species)