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

我们也可以使用substr

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

或者我们可以使用 library(zoo) 中的 as.yearmon 转换为 yearmon 类，然后使用格式。

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