【发布时间】：2014-03-25 09:43:46
【问题描述】：
我有以下称为工作文件的数据框：
head(workfile)
times users signal log
14 2014-01-13 00:00:16 00250902DC7D true ON
28 2014-01-13 00:00:47 00250902DC7D true ON
42 2014-01-13 00:01:18 00250902DC7D true ON
56 2014-01-13 00:01:48 00250902DC7D true ON
70 2014-01-13 00:02:19 00250902DC7D true ON
84 2014-01-13 00:02:50 00250902DC7D true ON
我有 14 个不同的用户，基本上我想计算每个用户的时间差。我正在使用 ddply 但它不起作用，我不明白原因
hope<-ddply(workfile,.
.(users),transform,diff=c(difftime(tail(workfile$times,-1),head(workfile$times,-1)), NA))
这里是错误消息：
*属性错误（out）*'
此外，如果我附加我的数据框并启动相同的命令，则会发生错误消息更改：attach(workfile)
hope<-ddply(workfile, .(users), transform, diff = c(difftime(tail(times, -1),head(times,-1)), NA))
*as.POSIXct.POSIXlt(time1) 中的错误：'x' 参数无效*
而且也很奇怪……
我注意到，就用户（在第 3 列中）而言，没有任何错误。如果我尝试使用具有不同用户的数据框，则会发生这种情况...显然我的代码在tail(...),head(...) 部分不正确我的目标是逐行计算所有用户的时间差...
我已将dput 与我的数据框样本一起使用：
head(pino)
> pino
times users signal log
319001 2014-01-16 21:57:46 00250902FA92 true ON
319006 2014-01-16 21:57:46 002509030E53 true ON
319007 2014-01-16 21:57:46 002509030C41 true ON
319011 2014-01-16 21:57:46 00250902DC7D true ON
319014 2014-01-16 21:57:49 00250902FB05 true ON
319015 2014-01-16 21:57:49 00250902FA92 true ON
319020 2014-01-16 21:57:49 002509030E53 true ON
319021 2014-01-16 21:57:49 002509030C41 true ON
319025 2014-01-16 21:57:49 00250902DC7D true ON
319028 2014-01-16 21:57:58 00250902FB05 true ON
319029 2014-01-16 21:57:58 00250902FA92 true ON
319034 2014-01-16 21:57:58 002509030E53 true ON
319035 2014-01-16 21:57:58 002509030C41 true ON
319039 2014-01-16 21:57:58 00250902DC7D true ON
319042 2014-01-16 21:58:04 00250902FB05 true ON
319043 2014-01-16 21:58:04 00250902FA92 true ON
> dput(pino)
structure(list(times = structure(list(sec = c(46, 46, 46, 46,
49, 49, 49, 49, 49, 58, 58, 58, 58, 58, 4, 4), min = c(57L, 57L,
57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 58L,
58L), hour = c(21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L,
21L, 21L, 21L, 21L, 21L, 21L), mday = c(16L, 16L, 16L, 16L, 16L,
16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L), mon = c(0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L),
year = c(114L, 114L, 114L, 114L, 114L, 114L, 114L, 114L,
114L, 114L, 114L, 114L, 114L, 114L, 114L, 114L), wday = c(4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L
), yday = c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L,
15L, 15L, 15L, 15L, 15L, 15L, 15L), isdst = c(0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c("sec",
"min", "hour", "mday", "mon", "year", "wday", "yday", "isdst"
), class = c("POSIXlt", "POSIXt")), users = structure(c(3L, 13L,
10L, 1L, 4L, 3L, 13L, 10L, 1L, 4L, 3L, 13L, 10L, 1L, 4L, 3L), .Label = c("00250902DC7D",
"00250902FA91", "00250902FA92", "00250902FB05", "00250902FB2E",
"00250902FE0A", "00250902FE63", "002509030AD2", "002509030B9D",
"002509030C41", "002509030C8D", "002509030CE4", "002509030E53",
"002509030E63"), class = "factor"), signal = structure(c(2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("false",
"true"), class = "factor"), log = structure(c(2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("OFF",
"ON"), class = "factor")), .Names = c("times", "users", "signal",
"log"), row.names = c(319001L, 319006L, 319007L, 319011L, 319014L,
319015L, 319020L, 319021L, 319025L, 319028L, 319029L, 319034L,
319035L, 319039L, 319042L, 319043L), class = "data.frame")
现在我收到以下错误消息：
Error in attributes(out) <- attributes(col) :
'names' attribute [9] must be the same length as the vector [3]
你怎么看？
【问题讨论】：
-
您应该在您的对象上发布
dput的结果，而不是发布控制台输出。默认情况下不打印属性，因此我们并不真正知道您在处理什么。 -
没有数据真的很难确定，但你为什么不试试：
diff=c(difftime(tail(times,-1),head(times,-1)), NA));请注意我是如何删除workfile$部分的，我认为这会导致与变换发生冲突，因为您可能会尝试使用整个times向量而不是ddply的片段子集。我不能保证这是正确的，因为我还没有测试过。 -
是的，你可以，或者只将它的头部存储在一个新对象中，如果它重现问题，则将其作为整个数据框存储
-
@Llopis 我把它放在上面了。
-
啊。你已经成功地完成了 POSIXlt 课程。这真的把事情搞砸了。如果您要在数据框中使用日期时间，那么您需要使用 POSIXct 类。原因是 POSIXlt 对象实际上要复杂得多，并且某些函数（例如
difftime）不接受 POSIXlt 对象。 （为什么这对我来说似乎很奇怪，但事实就是如此。）“-”运算符确实会减去时间，但difftime会引发错误。