使用lubridate将单独的'year'和'day'列转换为一个'date'列?

时间:2014-06-12 18:18:01

标签: r lubridate

我有一个列为'year',一列为'day'(julian day),我想使用这些列来制作'date'(2002-12-03或任何格式都可以)。我发现了大量有关分手日期的lubridate文献,但我正在寻找如何将它们组合在一起。

听起来很简单:

year    day    
2008    1
2008    2
2008    3
2008    4

year    day    date
2008    1    2008-1-1
etc.

1 个答案:

答案 0 :(得分:3)

如果您愿意,可以使用基准日期而不是润滑。

如果这是您的样本数据

dd<-data.frame(
    year = rep(2008,4), 
    day = 1:4
)

然后你可以运行

years <- unique(dd$year)
yearstarts <- setNames(as.Date(paste0(years, "-01-01")), years)
newdates <- yearstarts[as.character(dd$year)] + dd$day - 1

哪个产生

cbind(dd, newdates)

#   year day   newdates
# 1 2008   1 2008-01-01
# 2 2008   2 2008-01-02
# 3 2008   3 2008-01-03
# 4 2008   4 2008-01-04

这是有效的,因为基本Date类存储自特定sentinel值以来的天数。因此,当您添加1时,您将在当前日期添加一天。在这里,我假设您可能需要多年才能确保正确计算每年第一天的日期值。