R-重复行

Question

I need to extract all numbers from a string and save them in one field as a list. My code is:

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))

But I get:

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

While I need to get:

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

I tried adding list, but didn't work. How can I avoid rbind generating all possible combinations? Thanks

Answer 1

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