R从字符串中删除所选字符

Question

抱歉，如果出现重复，但是我看到的解决方案不能解决我的问题。

我有一个数据框（df）。 其变量之一（df $ Year）包括年份列表，例如：

 > df$Year

 Year
 2001–                       
 2013–                     
 2016–                      
 2003–                      
 2012–2013                      
 2013–                      
 1993–2007, 2010–

在多年的情况下，我只想保留最后一个（即不是“ 1993-2007、2010-”而是“ 2010”），而去掉“-”。 但是，我尝试过：

unlist(str_extract_all(df$Year, "[[:digit:]]4$"))

但这似乎不起作用。

有什么提示吗？

Answer 1

我们可以将sub用作一个衬板：

df$Year <- sub(".*(\\d{4})\\–?", "\\1", df$Year)
df$Year

[1] "2001" "2013" "2016" "2003" "2013" "2013" "2010"

演示

请注意，您在年份范围内使用的破折号似乎是破折号（或可能是破折号），而不是常规的ASCII字符。