Question

我想添加指定日期的小时数。我希望输出采用日期格式。我写了下面的代码：

day<-as.Date(c("20-01-2016", "21-01-2016", "22-01-2016", "23-01-2016"),format="%d-%m-%Y")
hour<-c("12:00:00")
date<-as.Date(paste(day,hour), format="%d-%m-%Y %h:%m:%s")

但是，此代码生成NA＆＃39;

> date
[1] NA NA NA NA

我怎样才能在R中这样做？我会很高兴得到任何帮助。非常感谢。

以下代码也不起作用：

day<-as.Date(c("20-01-2016", "21-01-2016", "22-01-2016", "23-01-2016"),format="%d-%m-%Y")
time <- "12:00:00"
x <- paste(day, time)
x1<-as.POSIXct(x, format = "%d-%m-%Y %H:%M:%S")

它仍然支持NAs：

> x1
[1] NA NA NA NA

Answer 1

您可以执行以下任一操作：

dates <- as.Date(c("20-01-2016", "21-01-2016", "22-01-2016", "23-01-2016"), format = "%d-%m-%Y")
time <- "12:00:00"
x <- paste(dates, time)
as.POSIXct(x, format = "%Y-%m-%d %H:%M:%S")

dates <- c("20-01-2016", "21-01-2016", "22-01-2016", "23-01-2016")
time <- "12:00:00"
x <- paste(dates, time)
as.POSIXct(x, format = "%d-%m-%Y %H:%M:%S")

我个人认为第二版更简单。

在R中添加时间特定日期

1 个答案: