如何将日期和时间合并到一个变量中

Question

我想像这样将一个日期变量和一个时间变量作为一个变量2012-05-02 07:30

这段代码完成了工作，但我需要将一个新的组合变量放入数据框中，而这段代码只在控制台中显示 as.POSIXct(paste(data$Date, data$Time), format="%Y-%m-%d %H:%M")

这段代码应该结合时间和日期，但似乎并没有这样做。在“合并”列中仅显示日期 data$Combined = as.POSIXct(paste0(data$Date,data$Time))

这是数据

structure(list(Date = structure(c(17341, 18198, 17207, 17023, 
17508, 17406, 18157, 17931, 17936, 18344), class = "Date"), Time = c("08:40", 
"10:00", "22:10", "18:00", "08:00", "04:30", "20:00", "15:40", 
"11:00", "07:00")), row.names = c(NA, -10L), class = c("tbl_df", 
"tbl", "data.frame"))

Answer 1

我们可以使用 lubridate 包中的 ymd_hm 函数：

library(lubridate)

df$Date_time <- ymd_hm(paste0(df$Date, df$Time))

   Date       Time  Date_time          
   <date>     <chr> <dttm>             
 1 2017-06-24 08:40 2017-06-24 08:40:00
 2 2019-10-29 10:00 2019-10-29 10:00:00
 3 2017-02-10 22:10 2017-02-10 22:10:00
 4 2016-08-10 18:00 2016-08-10 18:00:00
 5 2017-12-08 08:00 2017-12-08 08:00:00
 6 2017-08-28 04:30 2017-08-28 04:30:00
 7 2019-09-18 20:00 2019-09-18 20:00:00
 8 2019-02-04 15:40 2019-02-04 15:40:00
 9 2019-02-09 11:00 2019-02-09 11:00:00
10 2020-03-23 07:00 2020-03-23 07:00:00

如何将日期和时间合并到一个变量中

How to merge date and time into one variable

r

lubridate

tidyverse