将逗号分隔的字符串拆分为R中定义的片数

# 定义一个逗号分隔的字符串
string <- "apple,banana,orange,grape,kiwi"

# 定义片数
slices <- 3

# 使用strsplit()函数拆分字符串
result <- strsplit(string, ",")
# 获取拆分后的子字符串列表
substrings <- unlist(result)

# 将子字符串按照片数进行分组
groups <- split(substrings, rep(1:slices, length.out = length(substrings)))

# 打印每组的内容
for (i in 1:slices) {
  cat("Group", i, ":", paste(groups[[i]], collapse = ","), "\n")
}