R语言批量删除date列指定字符转换日期表达式格式方法

需求场景 #

需要批量删除日期字段中固定的year、month、week字符，将类似2012year05month1week的字符串转换为2012051的精简格式，要求方案简便、性能适配海量数据集。

测试数据构造 #

df <- data.frame(date = c("2012year05month1week", "2012year05month3week", "2012year05month4week"))

实现代码 #

无依赖版本（Base R，开箱即用） #

不需要安装任何第三方包，直接调用R内置函数即可完成转换，适合绝大多数场景：

df$date <- gsub("year|month|week", "", df$date)

执行后查看df，输出结果完全匹配目标格式：

date
1 2012051
2 2012053
3 2012054

高性能版本（适配百万级以上海量数据） #

如果数据量极大，可以使用stringi包的固定字符替换接口，相比内置gsub速度提升3-10倍，内存占用更低：

# 首次使用请先执行安装命令：install.packages("stringi")
df$date <- stringi::stri_replace_all_fixed(
  str = df$date,
  pattern = c("year", "month", "week"),
  replacement = "",
  vectorize_all = FALSE
)

注意事项 #

• 两种方案均采用固定字符匹配逻辑，不会误修改日期中的数字内容，转换准确率稳定
• 转换后字段为字符类型，若需要数值格式可直接用as.numeric(df$date)做类型转换
• 若后续存在周数为两位数的场景（比如10week、12week），该逻辑依然适用，不需要额外调整代码

内容的提问来源于stack exchange，提问作者Lee