你可以通过 diff
require(lubridate)
a <- c("2015-03","2014-12")
a_parsed <- ymd(paste0(a,"-01")) # There might be a nicer solution to get the dates
diff(year(a_parsed)) * 12 + diff(month(a_parsed)) # Results in 3
Run Code Online (Sandbox Code Playgroud)
使用+ 1"考虑12月."
说明:
diff(year(a_parsed))给出* 12由此产生的年份,月份的差异.diff(month(a_parsed))导致月度差异,忽略年度差异.结合它会导致您要求的月度差异.
| 归档时间: |
|
| 查看次数: |
3320 次 |
| 最近记录: |