我正在尝试编写一个代码，如果 period5 列中的值包含超过 4 位数字，它将用从 period 列中提取的数字替换 period5 列中的值。
在代码的第一个 mutate 中，我只是提取第一个和第二个点之间的数字。
MR_all<-MR_all%>% mutate(period5= sub("^.*?[.](\\w+).*","\\1", id))%>%mutate(period5=case_when("^\d{4})\K\d")~ gsub("[^[:digit:]]", "", period))
我收到以下错误：
Error: '\d' is an unrecognized escape in character string starting ""^\d"
我尝试将正则表达式与 gsub 一起使用，但这对我来说真的很陌生。我真的很感谢帮助识别超过 4 位数字的行的代码。
谢谢！