求问sub 正则化问题

scores<-as.numeric(sapply(ids,function(x) sub("[1-9]+_([1-9]+)\\.txt","\\1",x)))
我的ids是10_5.txt 11_9.txt一系列这样子的
但是当我的后面那个数字范围为1~5时报错了，请问该怎么改？显示强制转换有NA出现

应该把[1-9]改成[0-9]即可