R 将模式后的字符串提取到未知停止点

在数据帧中，我有一个名为bucket的列，其中包含符合以下模式的行：

{“21-45”：“541-600”：2，“46-60”：2，“721-840”：2，“1201-1320”：1}

{“21-45”：7，“481-540”：10，“541-600”：6，“46-60”：2，“721-840”：2}

---

{“481-540”：1，“301-360”：1，我们可以使用

stru-extract

library(stringr)
as.numeric(str_extract(str1, '(?<=21-45":)\\d+'))
#[1]   1   7  10 200

库（stringr）
as.numeric（str_）extract（str1），（？胜利！非常感谢。
str1 <- c("{\"21-45\":1,\"541-600\":2,\"46-60\":2,\"721-840\":2,\"1201-1320\":1}", 
"{\"21-45\":7,\"481-540\":10,\"541-600\":6,\"46-60\":2,\"721-840\":2}", 
"{\"481-540\":1,\"301-360\":1,\"<20\":2,\"61-120\":1,\"21-45\":10}", 
"{\"481-540\":1,\"21-45\":200,\"721-840\":1,\"<20\":3,\"61-120\":2}"
)