计算自特定日期以来的天数

Question

我有一个包含日期列的数据框，其中的观察范围从 1974-10-01 到 2014-30-09。我想在数据框中创建一个新列（"Day"），它指定自第一个时间段日（即 1974-10-01）以来的天数。

我已经有了代码，它非常适合一个非常相似的数据框，但我不知道为什么第二个数据框不起作用。

1) 代码如下：

library(lubridate)
ref_date <- dmy("01-10-1974")
df$Day <- as.numeric(difftime(df$Date, ref_date))

2) 我的数据框的第一行是：

     Code  Area        Date    Height
1    2001  551.4 1975-04-01   120.209
2    2001  551.4 1976-01-06   158.699
3    2001  551.4 1977-01-21   128.289
4    2001  551.4 1978-02-23   198.254
5    2001  551.4 1979-07-31   131.811
[....]

3) 我通过代码 (1) 获得的内容如下：

     Code   Area       Date        Day    Height
1    2001  551.4 1975-04-01   15724800  120.209
2    2001  551.4 1976-01-06   39916800  158.699
3    2001  551.4 1977-01-21   72835200  128.289
4    2001  551.4 1978-02-23  107222400  198.254
5    2001  551.4 1979-07-31  152409600  131.811
[....]

我花了 2 个多小时想知道为什么没有任何线索。

有什么建议吗？

Answer 1

您是否在寻找类似于以下示例的内容：

df <- data.frame(Date = c("1975-04-01"))
> df
        Date
1 1975-04-01

df$new_col <- as.Date(as.character(df$Date), format="%Y-%m-%d") - as.Date(as.character("1974-10-01"), format="%Y-%m-%d")
> df
        Date  new_col
1 1975-04-01 182 days
>

Answer 2

另一种选择

difftime(ref_date,df$Date,units = "days")

Answer 3

只要日期是字符列，您的代码似乎就可以工作。

library(lubridate)
ref_date <- dmy("01-10-1974")

df<- data.frame(Code=2001, Area=551.4,  Date=c("1975-04-01","1976-01-06","1977-01-21","1978-02-23","1979-07-31"), Height=c(120.209, 158.699, 128.289, 198.254, 131.811))

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

计算自特定日期以来的天数

Count number of days since a specific date

r

dataframe

lubridate