Question

我有两个约会

begin <- as.Date("2007-05-20")
end   <- as.Date("2010-06-13")

我如何计算每年的天数？

输出应该看起来像这样

year   days
2007   226
2008   366
2009   365
2010   164

Answer 1

让我们首先创建一个正确的日期序列：

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

Answer 2

或者，或者使用附加列data.frame创建year（使用Dirk的数据）：

dat = data.frame(seqd, year = strftime(seqd, "%Y"))
> head(dat)
        seqd year
1 2007-05-20 2007
2 2007-05-21 2007
3 2007-05-22 2007
4 2007-05-23 2007
5 2007-05-24 2007
6 2007-05-25 2007

然后使用plyr包中的count：

require(plyr)
> count(dat, "year")
  year freq
1 2007  226
2 2008  366
3 2009  365
4 2010  164

Answer 3

这样的事情可以解决问题：

function daysPerYear( begin, end )
{
    var days = {};
    for ( var y = begin.getFullYear(); y < end.getFullYear(); y++ )
    {
        days[y] = Math.ceil( ( new Date( y+1, 0, 1 ) - begin ) / 86400000 );
        begin = new Date( y+1, 0, 1 );
    }
    days[ end.getFullYear() ] = Math.ceil( ( end - begin ) / 86400000 );
    return days;
}

样品：

console.log( daysPerYear( new Date( "2007-05-20" ), new Date( "2010-06-13" ) ) );

http://puu.sh/iBgo

编辑：我认为这是关于Javascript的。

Answer 4

内存密集度较低的解决方案可能是，虽然不是单行内容：）

begin <- as.POSIXlt("2007-05-20", tz = "GMT")
end <- as.POSIXlt("2010-06-13", tz = "GMT")

year <- seq(begin$year, end$year) + 1900
year.begin <- as.POSIXlt(paste(year, "01", "01", sep="-"), tz="GMT")
year.begin[1] <- begin
year.end <- as.POSIXlt(paste(year, "12", "31", sep="-"), tz="GMT")
year.end[length(year.end)] <- end
days <- as.numeric(year.end - year.begin) + 1
cbind(year, days)

由Make this process more processor intensive and less memory intensive

激励

每年计算天数

4 个答案: