使用分隔符拆分多列，并在r中具有一致的列名

# 安装和加载tidyr包
if (!require("tidyr")) {
  install.packages("tidyr")
}
library(tidyr)

# 创建一个示例数据集
data <- data.frame(
  col1 = c("A,B,C", "D,E,F", "G,H,I"),
  stringsAsFactors = FALSE
)

# 使用separate()函数拆分列
split_data <- separate(data, col1, into = c("Col1", "Col2", "Col3"))

# 查看结果
print(split_data)

# 假设data现在包含两列需要拆分
data <- data.frame(
  col1 = c("A,B,C", "D,E,F", "G,H,I"),
  col2 = c("J,K,L", "M,N,O", "P,Q,R"),
  stringsAsFactors = FALSE
)

# 使用lapply和separate()函数拆分多列
split_columns <- function(data, cols, sep = ",", into_prefix = "Col") {
  new_data <- data
  for (col in cols) {
    temp <- separate(new_data, col, into = paste0(into_prefix, seq_along(strsplit(col, sep)[[1]])))
    new_data <- temp
  }
  return(new_data)
}

# 拆分col1和col2，并给新列名添加前缀
split_data <- split_columns(data, cols = c("col1", "col2"), sep = ",", into_prefix = "NewCol")

# 查看结果
print(split_data)