R 将其他矢量元素拆分并堆叠成矩阵或数据帧

我有元素对，我需要将每一秒的元素分割成多个逗号分隔的元素，并将它们堆叠成二维，第一个元素根据需要重复多次：

v <- c("Cha, Seungman", "1,2", "Jin, Yan", "3")

---

数据帧输出也很好。

使用基本R，可以使用向量循环来选择替代元素。在逗号上拆分数字，然后cbind

library(dplyr)
library(tidyr)
as.data.frame(do.call(cbind, split(v, c("nm", "val")))) %>%
    separate_rows("val", sep = ",")

data.framematrixv，2，byrow=T%>%separate_rowsX2

library(dplyr)
library(tidyr)
as.data.frame(do.call(cbind, split(v, c("nm", "val")))) %>%
    separate_rows("val", sep = ",")

do.call(rbind, Map(cbind, v[c(TRUE, FALSE)], strsplit(v[c(FALSE, TRUE)], ",")))

#     [,1]            [,2]
#[1,] "Cha, Seungman" "1" 
#[2,] "Cha, Seungman" "2" 
#[3,] "Jin, Yan"      "3"