将一行分成多行

数据框有两列数据，如下示

A           中国、美国
B           德国、日本
D           意大利
E            NA


最终想要生成的效果为

A       中国
A       美国
B       德国
B       日本
D       意大利
E       NA

求救高手R代码

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

1. options(stringsAsFactors=FALSE)
   
2. df <- data.frame(x1=c("A","B","D","E"),
   
3.                  x2=c("中国、美国","德国、日本","意大利",NA) )
   
4. country_list <- strsplit(with(df,x2),"、")
   
5. count_n <- sapply(country_list,length)
   
6. data.frame(x1=rep(with(df,x1),count_n),x2=unlist(country_list))

复制代码

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