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。是否可以使用纬度和经度将该 UTC 转换为本地时间？

Answer 1

我找到了一个关于将经度和纬度转换为时区的好答案 here ，以下是我们如何将该方法应用到您的用例中的方法。

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 的评论。尽管从技术上讲你不需要一个，根据 Google's requirements您应该请求 API key 并在上面的 google_timezone() 函数中使用它。
• Google API 有一定的使用限制。如果您计划在大型数据帧上执行此操作，请考虑仅对唯一的经度和纬度对进行子集化，甚至可能将它们四舍五入到 x 位。然后，您可以对这些独特的组合应用 google_timezone()，然后将它们合并回原始数据帧。

---