大体的思路如下：
1. 拆分第二列，有strsplit拆分，结果是一个list
2. 用length及sapply求出每个列表元素里向量的长度
3. 用rep根据2中求出的结果进行赋值，完成第1列的实现；用unlist对strsplit拆分的结果进行去列表化，成为一个独立的向量
4. 构建新的data.frameps. 因为论坛里的美元符号显示并不好，这里都改用了with函数代替了。结果是一样的。

有现成的包的
library(tidyr)
df %>% separate_rows(x2, sep = "、")