R -熔化与铬

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

但是它能更简单吗?(我想保留时间类)

Answer 1

我假设您在运行下面的代码之前发出了这个命令:

library(reshape2)

在这种情况下，您可以使用重塑包代替。它不会导致这个问题:

library(reshape)

其他解决方案是

(2)使用R的reshape函数:

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

(3)或转换的chron列为数字，使用melt从shape2包，然后转换回来:

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

添加了额外的解决方案

Answer 2

我不确定，但我认为这可能是chron中的"疏忽"(或可能是data.frame，但这似乎不太可能)。

在 shape2中构造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日期时间。