如何在write.csv()中动态添加日期列并按月份生成对应CSV文件？

Got it, let's break this down into simple, actionable steps. I'll cover both tidyverse and base R approaches so you can pick what fits your workflow best.

Step 1: Set Up Sample Data #

First, let's replicate your example data frame to test with—this makes it easier to see how everything works:

# Example data frame matching your specs
df <- data.frame(
  Month = c("01", "02", "01", "02"),
  Name = c("amar", "nari", "priya", "ravi")
)

Step 2: Add a Date Column #

You mentioned inserting a date column—here are two practical options depending on your needs:

• Option 1: Add the current export date (uses your system's current date)
• Option 2: Add a date tied to the Month column (e.g., the first day of the month)

Option 1: Current Export Date #

# Using tidyverse
library(tidyverse)
df_with_date <- df %>% mutate(Export_Date = Sys.Date())

# Or base R (no packages needed)
df$Export_Date <- Sys.Date()

Option 2: Month-Specific Date #

If you want a date that aligns with the Month value (like the first day of that month):

# Tidyverse: Replace 2024 with your target year
df_with_date <- df %>% 
  mutate(Month_Start_Date = as.Date(paste0("2024-", Month, "-01")))

# Base R
df$Month_Start_Date <- as.Date(paste0("2024-", df$Month, "-01"))

Step 3: Export CSV Files with Dynamic Filenames #

Now we'll split the data frame by Month and export each group to a CSV named after the month (e.g., 01.csv, 02.csv).

Tidyverse Approach (Clean & Concise) #

# Group by Month and export each group
df_with_date %>%
  group_by(Month) %>%
  group_walk(~ write.csv(.x, file = paste0(.y$Month, ".csv"), row.names = FALSE))

• group_by(Month) splits the data into groups based on the Month column
• group_walk() iterates over each group: .x is the group's data frame, .y holds the group's Month value
• paste0(.y$Month, ".csv") creates the dynamic filename
• row.names = FALSE prevents unnecessary row numbers from cluttering your CSV

Base R Approach #

If you prefer not to use tidyverse packages:

# Split the data frame by Month into a list of subsets
split_df <- split(df, df$Month)

# Loop through each subset and export to the correct CSV
lapply(names(split_df), function(month) {
  write.csv(split_df[[month]], file = paste0(month, ".csv"), row.names = FALSE)
})

• split(df, df$Month) breaks the data into a list where each element is a subset for one month
• lapply() loops through each month name, exporting the corresponding subset to the right CSV file

Final Result #

After running either approach, you'll get exactly what you need:

• 01.csv (contains all rows where Month = "01", plus your new date column)
• 02.csv (contains all rows where Month = "02", plus your new date column)

内容的提问来源于stack exchange，提问作者Amarnadh Paritala