R如何将时间戳转换为同一列中的多个时区

Question

我有一个包含两个字符变量的数据框:一个是时间戳，另一个是美国州。我一直未能成功尝试将每个时间戳转换为 POSIX 对象，并根据州的相应值分配时区:佛罗里达州 (FL) 的东部时间 (EST) 和德克萨斯州 (TX) 的中部时间 (CST6CDT)。
但是，无论我尝试什么，R 都只会返回单个时区中的所有时间戳，或者返回包含自原点以来的秒数的字符串。我当然可以将字符串转换为 POSIX 对象，但我绕了一圈，无法声明多个时区。我也用循环而不是索引尝试过这个，但这也不起作用。

我特别想知道发生了什么。我的猜测(可能不正确)是问题与列中声明的数据类型有关，因为这可以解释示例 3 中发生的情况。 但是，无论我读过或尝试过什么，我都找不到如何让它发挥作用。

示例 1 - 将 df$time 转换为 POSIX 对象，然后尝试通过 df$state 分配不同的时区

 df <- data.frame(time = c("2010-03-05 07:03:00", "2010-03-05 16:00:00", "2010-03-06 07:01:00"), state = c("FL", "FL", "TX"))
df$time <- as.character(df$time); df$state <- as.character(df$state)
df$time <- as.POSIXct (strptime(df$time, "%Y-%m-%d %H:%M:%S"))
df$time  
#-----
#[1] "2010-03-05 07:03:00 PST" "2010-03-05 16:00:00 PST" "2010-03-06 07:01:00 PST"

df$time 已成功转换为 POSIX 对象。但是，当我尝试按州分配时区时，时区保持在初始化时的任何状态(在我所在的位置，即太平洋标准时间)。

 df$time[df$state == "FL"] <- as.POSIXct (strptime(df$time[df$state == "FL"], "%Y-%m-%d %H:%M:%S"), tz = "EST" 
 df$time[df$state == "TX"] <- as.POSIXct (strptime(df$time[df$state == "TX"], "%Y-%m-%d %H:%M:%S"), tz = "CST6CDT")
 df$time
#[1] "2010-03-05 04:03:00 PST" "2010-03-05 13:00:00 PST" "2010-03-06 05:01:00 PST"

示例 2 - 尝试将 df$time 字符串直接转换为每个州的时区而不先转换

ng the string to a POSIX object

 df <- data.frame(time = c("2010-03-05 07:03:00", "2010-03-05 16:00:00", "2010-03-06 07:01:00"), state = c("FL", "FL", "TX"))
 df$time <- as.character(df$time); df$state <- as.character(df$state)
 df$time
#[1] "2010-03-05 07:03:00" "2010-03-05 16:00:00" "2010-03-06 07:01:00"
 df$time[df$state == "FL"] <- as.POSIXct (strptime(df$time[df$state == "FL"], "%Y-%m-%d %H:%M:%S"), tz = "EST")

df$time[df$state == "TX"] <- as.POSIXct (strptime(df$time[df$state == "TX"], "%Y-%m-%d %H:%M:%S"), tz = "CST6CDT")
df$time
[1] "1267790580" "1267822800" "1267880460"

示例 3 - 尽管我可以使用示例 2 中的代码生成的 df$time 字符串并成功将它们转换为 EST...

 as.POSIXct(as.numeric(df$time[df$state == "FL"]), origin = "1970-01-01", tz = "EST")

#[1] "2010-03-05 07:03:00 EST" "2010-03-05 16:00:00 EST"

# ... 但如果我尝试将这些对象传回数据框，R 会将它们转换回字符串，然后我又绕了一圈。

 df$time[df$state == "FL"] <- as.POSIXct(as.numeric(df$time[df$state == "FL"]), origin = "1970-01-01", tz = "EST")
 df$time
#[1] "1267790580" "1267822800" "1267880460"

Answer 1

根据评论，R 无法在单个向量中处理多个时区。因此，如果其他人正在尝试解决与我相同的问题，我可以提供一个粗略但有效的解决方法。

首先，为每个时区创建单独的向量并将 POSIX 对象设置为每个时区的本地时间，然后将单独的向量合并到一个新向量中，将 POSIX 对象设置为 UTC/GMT(或您的其他单个时区)选择)。

df <- data.frame(time = c("2010-03-05 07:03:00", "2010-03-05 16:00:00", "2010-03-05 08:27:00"), state = c("FL", "FL", "TX"))

df$time <- as.character(df$time); df$state <- as.character(df$state)

df$timeFL[df$state == "FL"] <- as.POSIXct (strptime(df$time[df$state == "FL"], "%Y-%m-%d %H:%M:%S"), tz = "EST")

df$timeFL <- as.POSIXct(df$timeFL, origin = "1970-01-01", tz = "EST")

df$timeTX[df$state == "TX"] <- as.POSIXct (strptime(df$time[df$state == "TX"], "%Y-%m-%d %H:%M:%S"), tz = "CST6CDT")

df$timeTX <- as.POSIXct(df$timeTX, origin = "1970-01-01", tz = "CST6CDT")

df$common.time.UTC[!is.na(df$timeFL)] <- df$timeFL[!is.na(df$timeFL)]

df$common.time.UTC[!is.na(df$timeTX)] <- df$timeTX[!is.na(df$timeTX)]

df$common.time.UTC <- as.POSIXct(df$common.time.UTC, origin = "1970-01-01", tz = "UTC")

df$timeFL <- NULL; df$timeTX <- NULL

df

time                state     common.time.UTC
2010-03-05 07:03:00    FL 2010-03-05 12:03:00
2010-03-05 16:00:00    FL 2010-03-05 21:00:00
2010-03-05 08:27:00    TX 2010-03-05 14:27:00