tmcmt_nona$id120<-str_extract(tmcmt_nona$newtag,"(count:)([0-9]+)(id:120posi:truetag:)")
tmcmt_nona$id121<-str_extract(tmcmt_nona$newtag,"(count:)([0-9]+)(id:121posi:truetag:)")
tmcmt_nona$id122<-str_extract(tmcmt_nona$newtag,"(count:)([0-9]+)(id:122posi:truetag:)")
tmcmt_nona$id123<-str_extract(tmcmt_nona$newtag,"(count:)([0-9]+)(id:123posi:truetag:)")
.........
一直到
tmcmt_nona$id1120<-str_extract(tmcmt_nona$newtag,"(count:)([0-9]+)(id:1120posi:truetag:)")


如果一个列一个列的输入，太多太长，有没有什么办法可以解决？