Question

我需要你的帮助，感谢任何会考虑我的请求的人。

我想将数据框的Date列（class = date）转换为自最早观察日期以来的日期，包括从1966-10-01到2006-09-30。因此，每天的观察应该有一个独特的值，40年应该在1到14640（40 * 366）之间。

这是我的日期栏的一部分：

Date
17/12/1966
05/05/1968
30/10/1968
16/08/1970
07/01/1971
25/11/1971
29/09/1973
18/01/1974
17/09/1975
06/01/1976
28/11/1976
04/07/1978
15/11/1978
27/07/1980
20/09/1981
03/10/1981
11/09/1983
23/09/1984
25/10/1984
03/12/1985
07/12/1986

[...]

任何帮助都会非常令人沮丧。感谢

Answer 1

Base R有一个Julian函数，可以选择指定原点：

#example
date<-as.Date("2016-06-27")

#base R
result<-julian(date, origin=as.Date("1966-10-01"))
result
#[1] 18167
#attr(,"origin")
#[1] "1966-10-01"

as.numeric(result)
#18167

Answer 2

这应该有效：

library(lubridate)
ref_date <- dmy('01-10-1966')
new_date <- dmy('17/12/1966')
day_number <- as.numeric(difftime(new_date, ref_date))

编辑：

这是一个例子;要直接应用于您的数据集，请使用：

df$day_number <- as.numeric(difftime(df$Date, ref_date))

R - 自数据帧中最早日期以来的天数转换日期列

2 个答案: