5 从字符串里提取年和月

题目⁵：部分数据集展示如下，我现在能想到的分离办法就是写正则表达式，还有没有更方便的办法？

x <- c('2019-06-30 21:44:44', '2019-06-30 21:32:29', '2019-06-30 12:14:25')

N 版

y <- strptime(x,
              format = '%Y-%m-%d %H:%M:%S')
format(y, '%Y')

## [1] "2019" "2019" "2019"

format(y, '%m')

## [1] "06" "06" "06"

T 版

lubridate::year(x)

## [1] 2019 2019 2019

lubridate::month(x)

## [1] 6 6 6

另有 data.table 版：

library(data.table)
x_df <- data.frame(x = x)
setDT(x_df)[, `:=`(y = year(x), m=month(x))]
x_df

##                      x    y m
## 1: 2019-06-30 21:44:44 2019 6
## 2: 2019-06-30 21:32:29 2019 6
## 3: 2019-06-30 12:14:25 2019 6