如何从字符串类型的日期数据中分别提取年份、月份

我原以为正则表达式中启用 perl 实现的命名捕捉功能能获取名称和对应的值，我不知道是我不会用还是没这功能？

dapengde 你的非Non-Tidyverse 版真强，冒着打脸的风险，我把正则表达式的版本放出来，这个版本的唯一优势是面对不那么齐整的日期格式，可以加规则调整，实际数据往往比较脏，不过在我这个数据集中还好。除了出现这样的情况外 2019-6-3 21:44:44 目前还没看到更糟糕的情况，而且这种情况 strptime 仍然处理的好，再给刷个

extract_date <- function(x) {
  m <- regexec("((?<year>(\\d{4}))-(?<month>(\\d{1,2}))-(?<day>(\\d{1,2})))", x, perl = TRUE) 
  parts <- do.call(rbind,
                   lapply(regmatches(x, m), `[`, c(2L, 4L, 6L, 8L)))
  colnames(parts) <- c("date", "year", "month", "day")
  parts
}

equake <- cbind(eq, extract_date(eq[, 1]))
head(equake)

             发震时刻 震级(M) 纬度(°) 经度(°) 深度(千米)         参考位置
1 2019-06-30 21:44:44     3.0   27.56  112.10          6 湖南娄底市双峰县
2 2019-06-30 21:32:29     3.1   28.44  104.81          8 四川宜宾市长宁县
3 2019-06-30 12:14:25     3.0   28.43  104.77          9   四川宜宾市珙县
4 2019-06-30 03:44:11     4.8   22.43  122.31         30   台湾台东县海域
5 2019-06-30 03:09:29     3.1   31.00   98.96          7 四川甘孜州白玉县
6 2019-06-30 03:07:58     3.1   31.02   98.96          8 四川甘孜州白玉县
        date year month day
1 2019-06-30 2019    06  30
2 2019-06-30 2019    06  30
3 2019-06-30 2019    06  30
4 2019-06-30 2019    06  30
5 2019-06-30 2019    06  30
6 2019-06-30 2019    06  30

tctcab 那一长串正则是我刚开始想的太美好，以为正则的命名捕捉可以实现这样的效果，就是返回值是一个这样的数据框或者列表

# 数据框
year  month day
1970 01 01
# 列表
year
1970

month
01

day
01

lubridate 确实好，大家的方案都比我的好！

歪个楼，我发现加载 lubridate 出现冲突

library(lubridate)

Attaching package: ‘lubridate’

The following object is masked from ‘package:base’:

    date

进一步我发现，不加载 lubridate ，自带的 Base R 版 date 和它内容一样，就是 lubridate::date() 和 base::date() 功能是一样的，这纯粹的重复造轮子，目的是迷惑用户以后使用date函数的时候，就固定去安装 lubridate 包