R - gsub 只有数字

R - gsub only digits

我想清理这个向量,只保留数字

vec = c(" 4010  \"Filling in time budget diary\"", " 8888  \"Prob cont. preceding activity\"", " 9999   \"Missing, undecipherable\";") 

我想要的只是:4010, 8888, 9999

我想到了类似的方法,完全匹配数字,但它不起作用。

gsub("^[[:digit:]]$", replacement = '', vec)

谢谢

我们可以用\D+来匹配所有的非数字元素,替换成''

 gsub('\D+','', vec)