在 R 中将字符串转换为年月？

Question

我想将以下字符串转换为年月？

df <- tribble(
  ~date, 
  '20201227', 
)

这是所需的 output。

new_df <- tribble(
  ~date, 
  '2020-12', 
)

我怎样才能做到这一点？

Answer 1

转换为Date class 并使用format

library(dplyr)
df <- df %>% 
     mutate(date = format(as.Date(date, '%Y%m%d'), '%Y-%m'))

Answer 2

使用gsub的另一个可能选项（但更推荐@akrun 的as.Date答案）

transform(
  df,
  date = gsub("(\\d{4})(\\d{2}).*", "\\1-\\2", date)
)

给

     date
1 2020-12