r - 无效的 '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' 或其他一些字符值，那么它将起作用。

根据位置将 UTC 时间转换为不同时区的更好答案(而不是使用下面的 force_tz)。它也比循环或使用嵌套的 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']

---

以前的解决方案:Converting to Local Time in R - Vector of Timezones

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