编写正则表达式来替换日期模式

Question

我的数据中有一个模式，它以一个月的三个字母开头，后面的一到两位数字表示月份的日期。 这是数据的快照

 df_new <- data.frame(
   given_info=c('oct12 is given','he received on jan1',
                'lets go on dec12','also feb04 is right'))
 
 df_new %>% select(given_info)
           given_info
1      oct12 is given
2 he received on jan1
3    lets go on dec12
4 also feb04 is right

我需要找到正则表达式来捕获这些并用诸如specific time之类的术语替换它们。 因此，感兴趣的结果将是：

           given_info
1      specific timeis given
2     he received on specific time
3    lets fo on specific time
4    also specific timeis right

太感谢了！

Answer 1

gsub("\\b[a-z]{3}[0-9]{2}\\b", "specific time", df_new$given_info)
# [1] "specific time is given"      "he received on jan1"         "lets go on specific time"    "also specific time is right"