Another solution with str_match
from the stringr
package:
x <- c("I:500-600", "I:700-900", "II:200-250")
library(stringr)
as.data.frame(str_match(x, "^(.*):(.*)-(.*)$")[,-1])
## V1 V2 V3
## 1 I 500 600
## 2 I 700 900
## 3 II 200 250
In the above regular expression we match 3 substrings: from the beginning to :
, from :
to -
, and from -
to the end. Each matched substring will constitute a separate column in the resulting object.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…