我们可以尝试将paste列与sprintf一起使用，然后使用as.POSIXct转换为日期时间

as.POSIXct(do.call(sprintf, c(df1, fmt = c("%02d-%02d-%4d %02d"))), format = "%d-%m-%Y %H")
#[1] "2017-05-01 00:00:00 IST" "2017-12-05 01:00:00 IST" "2017-07-10 23:00:00 IST"

或者使用lubridate

library(lubridate)
with(df1, ymd_h(paste(year, month, day, hour, sep= ' ')))

由于年、月、日、小时存储在不同列中，为什么不使用ISOdate函数呢？例如：

> ISOdate("2017","12", "05", "01")
[1] "2017-12-05 01:00:00 GMT"

如果不想看到时区信息，只需将ISOdate Package 为as.Date

> as.Date(ISOdate("2017","12", "05", "01"))
[1] "2017-12-05"

但是这会将对象的类从POSIXct更改为Date，并且（如果我错了请纠正我）不会真正删除时区信息。
这在另一个问题How to convert in both directions between year,month,day and dates in R?中讨论

您可以直接执行此操作，而无需使用lubridate生成字符串。

library(lubridate)

df1 %>%
  mutate(date = make_datetime(year, month, day, hour))

这可能比使用字符串解析更可靠。