r - 从 UTC 时间获取本地时间

Question

假设我有一个包含日期、纬度和经度的数据集。

dt = data.table(date = c("2017-10-24 05:01:05",
"2017-10-24 05:01:57", 
"2017-10-24 05:02:54"),
lat = c(-6.2704925537109375,
-6.2704925537109375,
-6.2704925537109375),
long = c(106.5803680419922, 
106.5803680419922,
106.5803680419922))

时间是世界协调时。是否可以使用经度和经度将该 UTC 传输到当地时间？

Answer 1

我在这里找到了将经度和纬度转换为时区的好答案，因此以下是我们如何将该方法应用于您的用例。

library(data.table)
library(googleway)
library(lubridate)
dt = data.table(date = c("2017-10-24 05:01:05",
"2017-10-24 05:01:57", 
"2017-10-24 05:02:54"),
lat = c(-6.2704925537109375,
-6.2704925537109375,
-6.2704925537109375),
long = c(106.5803680419922, 
106.5803680419922,
106.5803680419922))
dt$date <- with_tz(as.POSIXct(dt$date), "UTC")
convert_time <- function(lat,lon,time_x)
{
my_time <- google_timezone(c(lat, lon), key = NULL)
as.POSIXct(format(time_x, tz=my_time$timeZoneId)) 
}
dt[,time_conv:=convert_time(lat,long,date),by=1:nrow(dt)]

输出：

date       lat     long           time_conv
1: 2017-10-24 03:01:05 -6.270493 106.5804 2017-10-24 10:01:05
2: 2017-10-24 03:01:57 -6.270493 106.5804 2017-10-24 10:01:57
3: 2017-10-24 03:02:54 -6.270493 106.5804 2017-10-24 10:02:54

希望这有帮助！

---

重要提示：

• 请参阅下面的SymbolixAU评论。虽然从技术上讲你不需要一个，但根据谷歌的要求，你应该请求一个API密钥，并在上面的google_timezone()函数中使用它。
• Google API 有一定的使用限制。如果计划在大型数据帧上执行此操作，请考虑仅对唯一的经度和纬度对进行子集化，甚至可能将它们舍入为x位。然后，您可以将google_timezone()应用于这些独特的组合，然后将它们合并回原始dataframe。

---