There's probably a better way, but here are two approaches with strsplit()
:
as.numeric(data.frame(strsplit(tmp3, " "))[2,])
as.numeric(lapply(strsplit(tmp3," "), function(x) x[2]))
The as.numeric() may not be necessary if you can use characters...
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…