【R：dplyr】データフレーム内で"数字＋文字列"→"数字"に置換したい

Question

前提・実現したいこと

データフレームを想定します。
Year列には年度だけでなく、文字も含まれています。

year <- c("2000年度、AAB", "2001年度、BBC", "2002年度、ABC", "年度数+0.5")
df <- data.frame(ID = id, Year = year)
> df
  ID     Year
1  A 2000年度、AAB
2  B 2001年度、BBC
3  c 2002年度、ABC
4  D     年度数+0.5

"Year"列を以下のように「年度」の前の数字だけの表記にしたいです。

> df_new
  ID Year
1  A 2000
2  B 2001
3  c 2002
4  D   NA

試したこと

mutate関数とreadrパッケージのparse_number関数で試みたのですが、"0.5"が邪魔をしてうまく抜き出せません。
「年度」の直前の数字だけを抜き出す良い方法はないでしょうか？

df %>% mutate(, Year = parse_number(Year))
> df_new
  ID   Year
1  A 2000.0
2  B 2001.0
3  c 2002.0
4  D    0.5

Answer 1

正規表現を利用すればいいと思います。
こんな感じで。

library(readr)
df$Year2 <- as.numeric(str_extract(df$Year, "^\d+"))

Comments

[toufya]

うまくいきました！ありがとうございます。
---メモ---
^ = 行頭、\d = 数字、+ = 1個以上