所以我有一个数据框如下:
dates <- structure(list(Date = c("2018-01-03", "2018-01-03", "2018-01-04",
"2018-01-08", "2018-01-09")), row.names = c(NA, 5L), class = "data.frame")
我可以使用以下命令“成功”为每个日期生成日出/日落时间:
library(httr)
library(jsonlite)
dates %>%
rowwise() %>%
mutate(sunrise = as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[1]),
sunset = as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[2])
)
因此:
Date sunrise sunset
2018-01-03 12:19:53 PM 9:41:13 PM
2018-01-03 12:19:53 PM 9:41:13 PM
2018-01-04 12:19:52 PM 9:42:08 PM
2018-01-08 12:19:27 PM 9:46:00 PM
2018-01-09 12:19:15 PM 9:47:01 PM
但是这里的问题是日期是UTC(我相信)。我在这里的位置是纽约市,因此上述时间比我早4小时。我写了以下文章来解决此问题,但我认为我要使事情复杂化以将这些时间推迟4个小时。
library(data.table)
dates %>%
rowwise() %>%
mutate(sunrise = as.character(as.ITime(as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[1])
)-18000),
sunset = as.character(as.ITime(as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[2])
)-18000)
)
但是现在我丢失了AM / PM。
Date sunrise sunset
2018-01-03 07:19:53 04:41:13
2018-01-03 07:19:53 04:41:13
2018-01-04 07:19:52 04:42:08
2018-01-08 07:19:27 04:46:00
2018-01-09 07:19:15 04:47:01
简而言之,我该如何进行这项工作,以便获得API在纽约时间吐出的日期。
一个选项是转换为POSIXct
,然后format
进行转换
dates %>%
rowwise() %>%
mutate(sunrise = as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[1]),
sunset = as.character(fromJSON(rawToChar(GET(paste0("https://api.sunrise-sunset.org/json?lat=40.730610&lng=-73.935242&date=", Date))$content))$results[2])
) %>%
mutate(sunrise = toupper(format(as.POSIXct(sunrise, format = "%I:%M:%S %p") - 18000, "%I:%M:%S %p")))
# A tibble: 5 x 3
# Rowwise:
# Date sunrise sunset
# <chr> <chr> <chr>
#1 2018-01-03 07:19:53 AM 9:41:13 PM
#2 2018-01-03 07:19:53 AM 9:41:13 PM
#3 2018-01-04 07:19:52 AM 9:42:08 PM
#4 2018-01-08 07:19:27 AM 9:46:00 PM
#5 2018-01-09 07:19:15 AM 9:47:01 PM
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句