R从给定的不完整日期中删除月份

Question

我有一个这样的字符串：year = "2011-01","2011-02","2011-03" .....一直到"2015-012"。

他们代表2011 Jan, 2011 Feb... ......

为简单起见，我只想说

year1 <- c("2011-01","2011-02","2011-03")

我被要求返回一个四位数代码（即2011,2012,2013）等。

我该怎么做？

Answer 1

您可以使用gsub，这是一个正则表达式替换函数：

sub("-[0-9]+$", "", year1)

Answer 2

我们也可以使用substr

substr(year1, 1,4)
#[1] "2011" "2011" "2011"

或者我们可以使用as.yearmon中的library(zoo)转换为yearmon类，然后使用format提取“年份”。

library(zoo)
format(as.yearmon(year1), '%Y')
#[1] "2011" "2011" "2011"

Answer 3

通过拆分，

if(window.location.hash == '#urlhere'){
    jQuery(".rTab").trigger('click');
}