在R中拆分DataFrame列的逗号分隔元素并生成对应列

Hey there! I see you've been stuck on this for a few days—let's get this sorted out for you.

问题分析 #

Your original code had a small but critical mistake: str_count(df$column) counts the total number of characters in each string, not the number of comma-separated elements. That's why separate wasn't working as expected—it was using the wrong number of target columns.

正确解决方案 #

We need to first calculate the maximum number of elements across all rows (by counting commas per row and adding 1), then use that number to define our target columns in separate.

Here's the full working code:

library(tidyverse)

# 你的原始数据框
df <- data.frame(column = c("apple juice,guava-peach juice,melon apple juice", 
                            "orange juice,pineapple strawberry lemon juice"))

# 计算需要的最大列数：每行的逗号数量 + 1 = 元素个数，取最大值
max_cols <- max(str_count(df$column, ",") + 1)

# 拆分列，生成column1、column2...columnN的列名
df_split <- df %>%
  separate(column, into = paste0("column", 1:max_cols), sep = ",")

# 查看结果
df_split

输出结果 #

Running this code will give you exactly what you're looking for:

column1                      column2               column3
1     apple juice          guava-peach juice melon apple juice
2    orange juice pineapple strawberry lemon juice              <NA>

The separate function automatically fills missing values with NA for rows that have fewer elements than the maximum column count, which matches your expected output.

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