在 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