R Excel数字日期编码（UTC）到日期转换

我似乎找不到这个问题的答案，我尝试了很多东西——我对R还是很陌生

我在数据集中有两个变量

旧数据

• 打开日期

  -Excel和

• 截止日期

  -

  POSIXct

  ，格式：“2017-10-11 12:39:37”

我无法让它们对数据集中的每一行进行减法，转换似乎已经停止

这就是我要做的（没有语法）：

---

Newdata您可以使用
guantitor
软件包的
excel\u numeric\u to\u date
功能将数字excel日期格式转换为
date
，然后使用
lubridate
软件包的
mdy
功能将字符串转换为
date
。然后您可以计算
difftime
期间（以天为单位），如下所示：

library(janitor)
library(lubridate)

df <- structure(list(open_date = c(43018, 43018, 43020, 43027), 
close_date = c("9/9/2018 12:11:11", 
"9/11/2018 13:21:11", "9/1/2018 14:31:41", "9/5/2018 15:44:41"
)), class = "data.frame", row.names = c(NA, -4L))

df$open_date <- excel_numeric_to_date(df$open_date)
df$close_date <- as_date(dmy_hms(df$close_date))
df$new_date_time <- df$close_date - df$open_date
df

如果你能分享这些数据那就太好了。请提供可复制的示例！很抱歉，数据不正确。请伪造数据：）1。专利2。您可以重命名变量名并将
rnorm（）
乘以值。如果没有数据，没有人可以帮助您。以天为单位的时间开放日期（num 43018 43020 43027 43022…）结束日期（POSIXct，格式：“2017-10-11 12:39:37”“2017-10-11 11:03:43…”）2 2018年9月9日2018年9月11日4 2018年9月1日2018年9月5日
library(janitor)
library(lubridate)

df <- structure(list(open_date = c(43018, 43018, 43020, 43027), 
close_date = c("9/9/2018 12:11:11", 
"9/11/2018 13:21:11", "9/1/2018 14:31:41", "9/5/2018 15:44:41"
)), class = "data.frame", row.names = c(NA, -4L))

df$open_date <- excel_numeric_to_date(df$open_date)
df$close_date <- as_date(dmy_hms(df$close_date))
df$new_date_time <- df$close_date - df$open_date
df

   open_date close_date new_date_time
1 2017-10-10 2018-09-09      334 days
2 2017-10-10 2018-11-09      395 days
3 2017-10-12 2018-01-09       89 days
4 2017-10-19 2018-05-09      202 days