R- rbind重复行

Question

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

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

我试着添加列表，但没有起作用。如何避免重新绑定生成所有可能的组合？谢谢

Answer 1

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