0

什么是在以下类型的时间序列数据中操作的好方法R：

username;variable;2012-01-01;2012-01-15;2012-02-01;2012-03-01;2012-04-01;2012-05-01;2012-07-02 
user1;var1;5;5;5;5;6;6;6
user1;var2;0;0;1;0;0;1;1
user1;var3;9;9;9;9;9;9;9
user2;var1;4;4;4;4;4;6;6
user2;var2;0;0;1;1;1;1;1
user2;var3;4;4;4;9;9;9;9

数据包含每个受监控用户的一组时间序列。我的目标是让数据采用这样一种格式，以便我可以轻松地对该数据集进行“增量”查询。也就是说，从某个时间点开始，我可以回顾并计算某个变量多久之前发生了变化，并且还可以从该查询中获取原始值和新值。

一个简单地将日期和变量名称作为参数的函数将是完美的，例如，fun(2012-07-02, var1)或者fun(2012-02-17, var1)将fun(2014-09-02, var1)返回四列：username,original_value;new_value;days_since_change。

是否有R可以做类似事情的包或代码片段？

4

1 回答 1

0

以下是如何以易于使用的格式转换您的表格。使用reshape2包和melt数据的技巧。

my.table <-read.table(text="username;variable;2012-01-01;2012-01-15;2012-02-01;2012-03-01;2012-04-01;2012-05-01;2012-07-02
user1;var1;5;5;5;5;6;6;6
user1;var2;0;0;1;0;0;1;1
user1;var3;9;9;9;9;9;9;9
user2;var1;4;4;4;4;4;6;6
user2;var2;0;0;1;1;1;1;1
user2;var3;4;4;4;9;9;9;9",sep=";", header=TRUE)

library(reshape2)
res <-melt(my.table,id.vars=c("username","variable") )    #melt on the first two columns
colnames(res)[3] <-"Date"
res$Date <-as.Date(res$Date,format="X%Y.%m.%d")           #transform into date format

out <-res[res$username=="user1" & res$variable=="var1",]  #request user1 and var1
out

   username variable       Date value
1     user1     var1 2012-01-01     5
7     user1     var1 2012-01-15     5
13    user1     var1 2012-02-01     5
19    user1     var1 2012-03-01     5
25    user1     var1 2012-04-01     6
31    user1     var1 2012-05-01     6
37    user1     var1 2012-07-02     6

当你说的时候我不明白你想要什么，original_value;new_value;days_since_change但是以这种方式提取的数据，我相信你可以弄清楚。

于 2012-07-02T16:13:36.497 回答