在R中，如何根据一定的标准将一长列的数值数据拆分成多列？

# 创建示例数据
df <- data.frame(values = c(1, 2, 3, 4, 5, 6, 7, 8, 9))

# 按每3个数值拆分成一列
n <- 3
df_split <- as.data.frame(matrix(df$values, ncol = n, byrow = TRUE))

# 重命名列
colnames(df_split) <- paste0("col", 1:n)

print(df_split)

# 创建示例数据
df <- data.frame(values = c("1,2,3", "4,5,6", "7,8,9"))

# 使用strsplit按逗号拆分
df_split <- data.frame(do.call(rbind, strsplit(as.character(df$values), ",")))

# 重命名列
colnames(df_split) <- paste0("col", 1:ncol(df_split))

print(df_split)

# 创建示例数据
df <- data.frame(values = c(1, 2, 3, 4, 5, 6, 7, 8, 9))

# 定义拆分条件
condition <- function(x) {
  if (x < 4) "group1" else if (x < 7) "group2" else "group3"
}

# 应用条件并拆分
df$group <- sapply(df$values, condition)
df_split <- split(df$values, df$group)

# 转换为数据框
df_split <- as.data.frame(do.call(cbind, lapply(df_split, `length<-`, max(lengths(df_split)))))

# 重命名列
colnames(df_split) <- paste0("col", 1:ncol(df_split))

print(df_split)