在R数据框中拆分含多名称列并重命名重复列的技术求助

Hey there! Let's tackle your two R data wrangling challenges one by one—these are super common tasks, so you're not alone here. I'll walk you through practical, reproducible code examples using tidyverse tools (the go-to for this kind of work).

If you have columns where cells contain multiple names separated by commas (like Alice,Bob,Charlie), the separate_wider_delim() function from the tidyr package is perfect for this. It automatically creates new columns and lets you control their naming.

Example code: #

# Load required packages
library(tidyr)
library(dplyr)

# Sample data with a comma-separated column
df <- tibble(
  ID = 1:3,
  Team = c("Alice,Bob", "Charlie,Diana,Eve", "Frank")
)

# Split the "Team" column into numbered columns
df_split <- df %>%
  separate_wider_delim(
    cols = Team,          # Column to split
    delim = ",",          # Separator to use
    names_prefix = "Team_",  # Prefix for new column names
    names_sep = ""        # No extra separator between prefix and number
  )

# View the result
df_split

What this does: #

• It splits the Team column into Team_1, Team_2, Team_3 (matching the maximum number of entries in any row of the original column).
• Rows with fewer entries get NA in the extra columns (you can replace these with blanks using replace_na() if needed).
• The original Team column is removed by default—add remove = FALSE to keep it.

First, R doesn't allow duplicate column names in data frames by default—if your CSV has duplicates, read.csv() will auto-add .1, .2 suffixes. But if you want to control this process, or if splitting creates new duplicate names, here's how to handle it:

Step 1: Fix duplicate original column names #

If you've read in data with duplicate names (using check.names = FALSE to preserve them), use make.unique() to add sequential suffixes:

# Read in CSV with duplicate column names (preserve original names)
df_dupe <- read.csv("your_data.csv", check.names = FALSE)

# Add .1, .2 suffixes to duplicate names
colnames(df_dupe) <- make.unique(colnames(df_dupe))

Step 2: Split the renamed columns #

Now split the columns with comma-separated values, ensuring new names don't clash:

# Split all columns that start with (for example) "Score"
df_dupe_split <- df_dupe %>%
  separate_wider_delim(
    cols = starts_with("Score"),  # Target columns to split
    delim = ",",
    names_prefix = function(col) paste0(col, "_"),  # Append original column name to new names
    names_sep = ""
  )

# If any new column names end up duplicated, clean them up
colnames(df_dupe_split) <- make.unique(colnames(df_dupe_split))

Example result: #

If you started with two columns named Score, they become Score and Score.1 after make.unique(). Splitting them would generate Score_1, Score_2, Score.1_1, Score.1_2—no duplicates, and clear which original column they came from.

内容的提问来源于stack exchange，提问作者Arnold Klein