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。是否可以使用lat和long将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密钥并在上面的google_timezone()函数中使用它。
Google API有一定的使用限制。如果您计划在大型数据帧上执行此操作，请考虑仅对唯一经度和纬度对进行子集化，甚至可能将它们舍入为x个数字。然后，您可以对这些独特的组合应用google_timezone()，然后将它们合并回原来的dataframe。

从UTC时间获取当地时间

1 个答案: