Question

我有两个向量，我试图通过POSIXct()。 GMTDteTmeStamp是GMT中的时间列表，TZ是我需要GMT时间翻译成的相应本地时区列表。我已经尝试了多种传递TZ的方法，但我没有到达任何地方。

数据：

> GMTDteTmeStamp
 [1] 43138.5 43139.5 43168.5 43169.5 43170.5 43171.5 43172.5 43141.5 43142.5 43143.5 43144.5 43176.5
[13] 43177.5 43178.5
> TZ
 [1] "Europe/London"       "America/New_York"    "America/Chicago"     "America/Chicago"    
 [5] "America/Chicago"     "America/Chicago"     "America/Chicago"     "America/Phoenix"    
 [9] "America/Los_Angeles" "Europe/Madrid"       "America/Santiago"    "America/Sao_Paulo"  
[13] "America/Sao_Paulo"   "America/Sao_Paulo"

代码:(我正在尝试with_tz和POSIXct，看看我是否可以继续工作。）

  TZX <- TZDC[,1]
  GMTDteTmeStamp <- (TD[,2]) ## get GMT time to be converted
  GMTDteTmeStamp <- as.double(unlist(GMTDteTmeStamp), options(digits = 6)) 
  GMTDteTmeValue <- as.POSIXct((GMTDteTmeStamp) * 86400
                               , origin = as.POSIXct("1899-12-30", tz = "UTC")
                               , tz = "UTC") ## Force GMT time as GMT 


  TZ <- TZX
  x <- with_tz(GMTDteTmeValue, tz = TZ)
  APLDteTmeValue <- as.POSIXct((GMTDteTmeStamp) * 86400, origin = "1899-12-30", tz = TZ)

我可以手动传递TZ值，所以我知道那里没有问题。我正在

Error in as.POSIXlt.POSIXct(x, tz) : invalid 'tz' value

感谢您的帮助。

Answer 1

事实证明，你无法通过tz传递列表或向量。我还发现单个列不能有多个tz与之关联。不知道为什么会这样，但我确实找到了解决将来有这个问题的人的工作。

我首先使用循环将可变时区名称传递给tz，以获取记录位置的正确本地时间。然后我通过force_tz的另一个变量传递了它，以强制当地时间为“GMT”时区。这使我在“本地时间”栏中的时间能够正确读取，尽管R认为它们是GMT时间。

关于“本地时间”列的说明。确保将其设置为.POSIXct(.., tz = "UTC")，否则该列会将所有时间转换为系统本地时间。

以下是将GMT时间转换为记录本地时间的最终代码。请注意，我有一个包含所有机场代码和相应时区名称的数据文件。

library(readxl)
library(data.table)
library(plyr)
library(tidyr)
library(dplyr)
library(tibble)
library(fastmatch)
library(stringr)
library(magrittr)
library(RcppBDT)
library(lubridate)
library(openxlsx)
##library(anytime)

## Load time zone data sheet
TZData  <- read_excel("TZDataFile.xlsx")
TZData <- as.data.table(TZData)
TZRange <- TZData[,1]
TZRange <- as.data.frame(TZRange)

##Bring in test data
TD  <- read_excel("Test dates.xlsx", col_types = c("text", "text"))
TD <- as.data.table(TD)

####Start Time Conversion Code####

## Define variables
Station <- TD[,1] ##Station
GMT <- TD[,2] ##Date/time stamp in GMT to be converted to local
z <- nrow(TD)+0

STA <- as.data.frame(Station[,1]) ## Get Station
APCode <- fmatch(STA[,1],TZRange[,1]) ## Match station on Time Zone Data sheet
TZDC <- as.data.frame(TZData[APCode,3])
TZX <- TZDC[,1]
GMTDteTmeStamp <- (TD[,2]) ## get GMT time to be converted
GMTDteTmeStamp <- as.double(unlist(GMTDteTmeStamp), options(digits = 6))
GMTDteTmeValue <- as.POSIXct((GMTDteTmeStamp) * 86400
                             , origin = as.POSIXct("1899-12-30", tz = "UTC")
                             , tz = "UTC") ## Force GMT time as GMT
TD <- add_column(TD,GMTDteTmeValue)
LT <- .POSIXct(double(z), tz = "UTC")
TD <- add_column(TD, LT )

for (i in 1:z){
  TZ <- TZDC[i,1]
  LclDteTmeValue <- with_tz(GMTDteTmeValue[i], TZ)
  LclGMT <- force_tz(LclDteTmeValue, tzone = "UTC" )
  TD[i,4] <-LclGMT
}

 > TD
    Sta          GMT Dept      GMTDteTmeValue                  LT
 1: LHR 43183.51666666667 2018-03-24 12:24:00 2018-03-24 12:24:00
 2: LHR 43184.51666666667 2018-03-25 12:24:00 2018-03-25 13:24:00
 3: PHL 43169.51666666667 2018-03-10 12:24:00 2018-03-10 07:24:00
 4: PHL 43170.51666666667 2018-03-11 12:24:00 2018-03-11 08:24:00
 5: DFW 43169.51666666667 2018-03-10 12:24:00 2018-03-10 06:24:00
 6: DFW 43170.51666666667 2018-03-11 12:24:00 2018-03-11 07:24:00
 7: PHX 43169.51666666667 2018-03-10 12:24:00 2018-03-10 05:24:00
 8: PHX 43170.51666666667 2018-03-11 12:24:00 2018-03-11 05:24:00
 9: LAX 43169.51666666667 2018-03-10 12:24:00 2018-03-10 04:24:00
10: LAX 43170.51666666667 2018-03-11 12:24:00 2018-03-11 05:24:00
11: BCN 43183.51666666667 2018-03-24 12:24:00 2018-03-24 13:24:00
12: BCN 43184.51666666667 2018-03-25 12:24:00 2018-03-25 14:24:00
13: SCL 43317.51666666667 2018-08-05 12:24:00 2018-08-05 08:24:00
14: SCL 43318.51666666667 2018-08-06 12:24:00 2018-08-06 08:24:00
15: GIG 43176.51666666667 2018-03-17 12:24:00 2018-03-17 09:24:00
16: GIG 43177.51666666667 2018-03-18 12:24:00 2018-03-18 09:24:00

R在POSIXct函数中通过tz传递字符串向量

1 个答案: