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"

Demo

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