我有两个约会
begin <- as.Date("2007-05-20")
end <- as.Date("2010-06-13")
怎样计算一年有多少天?
输出可能应该是这样的
year days
2007 226
2008 366
2009 365
2010 164
让我们首先创建一个正确的日期序列:
R> bd <- as.Date("2007-05-20")
R> ed <- as.Date("2010-06-13")
R> seqd <- seq(bd, ed, by="1 day")
R> head(seqd)
[1] "2007-05-20" "2007-05-21" "2007-05-22" "2007-05-23" "2007-05-24" "2007-05-25"
然后我们创建一个辅助函数,给定一个日期,它返回它的年份:
R> getYear <- function(d) as.POSIXlt(d)$year + 1900
R> getYear(head(seqd))
[1] 2007 2007 2007 2007 2007 2007
之后,我们只需调用table()
关于助手从日期序列返回的内容:
R> table(getYear(seqd))
2007 2008 2009 2010
226 366 365 164
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)