“tz”值无效，时区问题

Question

我正在处理纳斯达克的分钟数据，它有索引"2015-07-13 12:05:00 EST". 我用 调整了系统时间Sys.setenv(TZ = 'EST')。

我想编写一个简单的买入/持有/卖出策略，因此我创建了一个持平头寸向量作为基础。

pos_flat <- xts(rep(0, nrow(NASDAQ)), index(NASDAQ))

然后我想应用一个约束，即在某个时间窗口内，头寸必然是持平的，在我的例子中这意味着等于 1。

pos_flat["T13:41/T14:00"] <- 1

这会返回错误：

"Error in as.POSIXlt.POSIXct(.POSIXct(.index(x)), tz = indexTZ(x)) :invalid 'tz' value".

我在进行其他计算时也会遇到此错误，我只是使用这个示例，因为它很简单并且显示了问题。

作为额外信息：

> Sys.timezone 
function (location = TRUE) 
{
    tz <- Sys.getenv("TZ", names = FALSE)
    if (nzchar(tz)) 
        return(tz)
    if (location) 
        return(.Internal(tzone_name()))
    z <- as.POSIXlt(Sys.time())
    zz <- attr(z, "tzone")
    if (length(zz) == 3L) 
        zz[2L + z$isdst]
    else zz[1L]
}
<bytecode: 0x03648ff4>
<environment: namespace:base>

我不明白 tz 值的问题...有什么想法吗？

Answer 1

“无效的‘tz’值”错误的根源是因为，无论出于何种原因， R 不接受tz = df$var. 如果您设置tz = 'America/New_York'或其他一些字符值，那么它将起作用。

更好的答案（而不是使用下面的force_tz）根据位置将UTC时间转换为各种时区。它也比循环或使用嵌套 ifelse 更简单、更好。我根据时区列对 tz 进行子集化和更改（我的数据已有该列，如果没有，您可以创建它）。只需确保您考虑了数据中的所有时区

(unique(df$timezone))   
df$datetime2[df$timezone == 'America/New_York'] <- format(df$datetime, tz="America/New_York")[df$timezone == 'America/New_York']
df$datetime2[df$timezone == 'America/Chicago'] <- format(df$datetime, tz="America/Chicago")[df$timezone == 'America/Chicago']
df$datetime2[df$timezone == 'America/Denver'] <- format(df$datetime, tz="America/Denver")[df$timezone == 'America/Denver']
df$datetime2[df$timezone == 'America/Los_Angeles'] <- format(df$datetime, tz="America/Los_Angeles")[df$timezone == 'America/Los_Angeles']

以前的解决方案：转换为 R 中的本地时间 - 时区向量

require(lubridate)
require(dplyr)

df = data.frame(timestring = c("2015-12-12 13:34:56", "2015-12-14 16:23:32"), localzone = c("America/Los_Angeles", "America/New_York"), stringsAsFactors = F)

df$moment = as.POSIXct(df$timestring, format="%Y-%m-%d %H:%M:%S", tz="UTC")

df = df %>% rowwise() %>% mutate(localtime = force_tz(moment, localzone))

df