R- rbind 重复的行

R- rbind duplicated rows

我需要从字符串中提取所有数字并将它们作为列表保存在一个字段中。 我的代码是:

library(stringr)
d<-data.frame(dir='a', x=1)

DIR<-"PJE INDEPENDENCIA 96 5"
X <- str_extract_all(DIR,"\(?[0-9]+\)?")[[1]]
d<-rbind(d, data.frame(dir=DIR ,  x=X))

但我得到:

> d
                     dir  x
1                      a  1
2 PJE INDEPENDENCIA 96 5 96
3 PJE INDEPENDENCIA 96 5  5

虽然我需要得到:

                     dir  x
1                      a  1
2 PJE INDEPENDENCIA 96 5 96,5

我尝试添加列表,但没有成功。 如何避免 rbind 生成所有可能的组合? 谢谢

你可以试试d<-rbind(d, data.frame(dir=DIR , x=toString(X)))