如何使用参考点以相同比例放置日期
How to place dates on the same scale using a reference point
我有一组多年的日期,我想知道如何使用参考点将它们放在相同的比例尺上。
例如,我有以下日期:
"2018-04-15" "2018-04-30" "2018-05-06" "2018-05-12" "2018-05-13"
我想创建一个单独的列来计算这些日期来自
的天数
“2018-11-06”。
非常感谢!
你可以这样使用difftime
library(data.table)
## Create data
df <- data.table(Date = c("2018-04-15", "2018-04-30", "2018-05-06", "2018-05-12", "2018-05-13"))
reference <- "2018-11-06"
## Calculate difference in dates in days
df <- df[,DaysFromRef := difftime(as.Date(reference), as.Date(Date), "days")]
df
Date DaysFromRef
1: 2018-04-15 205 days
2: 2018-04-30 190 days
3: 2018-05-06 184 days
4: 2018-05-12 178 days
5: 2018-05-13 177 days
## Convert DaysFromRef column to numeric
df$DaysFromRef <- as.numeric(df$DaysFromRef)
我有一组多年的日期,我想知道如何使用参考点将它们放在相同的比例尺上。
例如,我有以下日期:
"2018-04-15" "2018-04-30" "2018-05-06" "2018-05-12" "2018-05-13"
我想创建一个单独的列来计算这些日期来自
的天数“2018-11-06”。
非常感谢!
你可以这样使用difftime
library(data.table)
## Create data
df <- data.table(Date = c("2018-04-15", "2018-04-30", "2018-05-06", "2018-05-12", "2018-05-13"))
reference <- "2018-11-06"
## Calculate difference in dates in days
df <- df[,DaysFromRef := difftime(as.Date(reference), as.Date(Date), "days")]
df
Date DaysFromRef
1: 2018-04-15 205 days
2: 2018-04-30 190 days
3: 2018-05-06 184 days
4: 2018-05-12 178 days
5: 2018-05-13 177 days
## Convert DaysFromRef column to numeric
df$DaysFromRef <- as.numeric(df$DaysFromRef)