与时间融为一体

Question

我正在尝试使用 chron 类熔化数据帧

library(chron)
x = data.frame(Index = as.chron(c(15657.00,15657.17)), Var1 = c(1,2), Var2 = c(9,8))
x
                Index Var1 Var2
1 (11/13/12 00:00:00)    1    9
2 (11/13/12 04:04:48)    2    8

y = melt(x,id.vars="Index")
Error in data.frame(ids, variable, value, stringsAsFactors = FALSE) : 
  arguments imply differing number of rows: 2, 4

我可以用as.numeric() 欺骗如下：

x$Index= as.numeric(x$Index)
y = melt(x,id.vars="Index")
y$Index = as.chron(y$Index)
y
                Index variable value
1 (11/13/12 00:00:00)     Var1     1
2 (11/13/12 04:04:48)     Var1     2
3 (11/13/12 00:00:00)     Var2     9
4 (11/13/12 04:04:48)     Var2     8

但它可以更简单吗？ （我想保留 chron 类）

Answer 1

(1) 我假设您在运行所示代码之前发出了这个命令：

library(reshape2)

在这种情况下，您可以改用 reshape 包。它不会导致这个问题：

library(reshape)

其他解决方案是

(2)使用R的reshape函数：

reshape(direction = "long", data = x, varying = list(2:3), v.names = "Var")

(3) 或者将 chron 列转换为数字，使用 reshape2 包中的melt 然后再转换回来：

library(reshape2)
xt <- transform(x, Index = as.numeric(Index))
transform(melt(xt, id = 1), Index = chron(Index))

添加了其他解决方案。

Answer 2

我不确定，但我认为这可能是 chron 中的“疏忽”（或者可能是 data.frame，但这似乎不太可能）。

在reshape2中构造melt.data.frame中的数据框时出现问题，这通常使用回收，但data.frame的那部分：

for (j in seq_along(xi)) {
    xi1 <- xi[[j]]
    if (is.vector(xi1) || is.factor(xi1)) 
        xi[[j]] <- rep(xi1, length.out = nr)
    else if (is.character(xi1) && class(xi1) == "AsIs") 
        xi[[j]] <- structure(rep(xi1, length.out = nr), class = class(xi1))
    else if (inherits(xi1, "Date") || inherits(xi1, "POSIXct")) 
        xi[[j]] <- rep(xi1, length.out = nr)
    else {
        fixed <- FALSE
        break
    }

似乎出错了，因为 chron 变量既不继承 Date 也不继承 POSIXct。这会消除错误但会更改日期时间：

x = data.frame(Index = as.chron(c(15657.00,15657.17)), Var1 = c(1,2), Var2 = c(9,8))
class(x$Index) <- c(class(x$Index),'POSIXct')
y = melt(x,id.vars="Index")

就像我说的，这有点像某处的错误。我的钱将用于 chron 将 POSIXct 添加到类向量中，但我可能错了。显而易见的替代方法是使用 POSIXct 日期时间。