我有两个我试图通过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
感谢您的帮助。
因此，事实证明您无法通过tz传递列表或向量。我还发现，单列不能与它关联的一个tz以上。不知道为什么会这样，但是我确实为将来有这个问题的任何人找到了工作。
我首先使用循环通过tz传递可变时区名称，以获取记录位置的正确本地时间。然后，我将其通过另一个带有force_tz的变量，以使用" 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