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

Question

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

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

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

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

或

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

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

然而，我收到以下错误：

警告信息：在 .parse_hms(..., order = "HM", quiet = quiet) 中：
部分字符串解析失败。

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

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"

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