date - 从字符串中提取日期与 R 中的另一个数字

Question

我需要从此文本中提取日期：

Mellisoni 2014 Malbec (Columbia Valley (WA))
Okapi 2013 Estate Cabernet Sauvignon (Napa Valley)
Podere dal Nespoli 2015 Prugneto Sangiovese (Romagna)
Simonnet-Febvre 2015 Chablis
Lagler 2012 1000 Eimerberg Smaragd Neuburger (Wachau)

我使用这段代码：

vino<-mutate(vino, year1=sub("^.*([0-9]{4}).*", "\\1", vino$title))

它有效，但我在 1000 而不是 2012 上提取了最后一个值，如果有其他数字，我该如何解决？

标签： date