将海军日落/日出数据转换为时间

Question

我已经从海军下载了2015-2017日落/日出数据，我正在尝试将其格式化为日期和时间，以便与我拥有的其他数据一起使用。这就是我的数据集在R中的样子。

我已设法将日期转换为正确的R数据格式。然而，我仍然无法将我的上升/设置列数据从数字/整数格式转换为时间数据（如hh：mm）。
基于一个互联网资源，我写了以下代码：

Sun2015$Srise<- format(strptime(Sun2015$Rise, format="%H:%M")) 

但是这会在我的数据中给出NA

OR

Sun2015$Srise<-str_pad(Sun2015$Rise, 4, pad="0")

Sun2015$Srise<-hour(hm(Sun2015$Srise))

然而，我收到了以下错误：

  

警告信息：在.parse_hms（...，顺序=＆＃34; HM＆＃34;，安静=安静）：
  有些字符串无法解析。

有没有更好的方法将列转换为正确的时间格式，以便我可以将日期和时间列合并到日期和日出的日期时间列？ 预先感谢您的帮助。

Answer 1

您可以使用sprint("%04d", data)将军事时间转换为2400个时间字符串并从那里开始。例如，使用数据的前5行：

# Sample of your data
Day <- c("1/1/2015", "1/2/2015", "1/3/2015", "1/4/2015", "1/5/2015")
Rise <- c(652,652,652,653,653)
Set <- c(1755,1756,1756,1757,1757)

sun2015 <- data.frame(Day, Rise, Set)

# Convert to 2400 style strings with leading zeroes where necessary
sun2015$Rise <- sprintf("%04d", sun2015$Rise)
sun2015$Set <- sprintf("%04d", sun2015$Set)

# Merge with your date
sun2015$day_rise <- as.POSIXct(paste0(sun2015$Day, " ",sun2015$Rise), format = "%m/%d/%Y %H%M", origin = "1970-01-01", tz = "UTC")
sun2015$day_set <- as.POSIXct(paste0(sun2015$Day, " ",sun2015$Set), format = "%m/%d/%Y %H%M", origin = "1970-01-01", tz = "UTC")

> sun2015$day_rise
[1] "2015-01-01 06:52:00 UTC" "2015-01-02 06:52:00 UTC" "2015-01-03 06:52:00 UTC" "2015-01-04 06:53:00 UTC"
[5] "2015-01-05 06:53:00 UTC"
> sun2015$day_set
[1] "2015-01-01 17:55:00 UTC" "2015-01-02 17:56:00 UTC" "2015-01-03 17:56:00 UTC" "2015-01-04 17:57:00 UTC"
[5] "2015-01-05 17:57:00 UTC"

如有必要，您可以调整到适当的时区。