Question

我已经浏览了整个网络，包括StackOverflow，并在提出这个问题之前测试了各种各样的东西，但是如果我错过了一个很好的答案，请原谅我。

我看到了重塑函数（以及包也有很多帮助，但我无法做到我需要做的事）。我有一个“时间”变量因主题而异，例如，它不是time1，time2，time3。我想创建一个宽泛的数据集，按主题ID将每个唯一时间值视为“time1”，“time2”，“time3”，但我需要保存日期。为了具体化，这里有一些示例数据：

Id<-c(1, 1,1, 2,2,2, 3)
date<-c("Jan10", "Jun11", "Dec11", "Feb10", "May10", "Dec10", "Jan11")
Score<-c(52, 43, 67, 56, 33, 21, 20)
format2<-data.frame(Id, date, Score)
format2

  Id  date Score
1  1 Jan10    52
2  1 Jun11    43
3  1 Dec11    67
4  2 Feb10    56
5  2 May10    33
6  2 Dec10    21
7  3 Jan11    20

我希望它看起来像这样：

  Id  date1 Score1 date2 Score2 date3 Score3
  1  Jan10    52    Jun11    43  Dec11    67
  2  Feb10    56    Dec10    21  May10    33 
  3  Jan11    20      NA     NA    NA     NA

如果我错过了一个明显的答案，感谢您的帮助和道歉。

Answer 1

您需要生成一个time变量，可以使用ave()快速完成：

format2$time <- ave(format2$Id, format2$Id, FUN=seq_along)
reshape(format2, direction = "wide", idvar="Id", timevar="time")
#   Id date.1 Score.1 date.2 Score.2 date.3 Score.3
# 1  1  Jan10      52  Jun11      43  Dec11      67
# 4  2  Feb10      56  May10      33  Dec10      21
# 7  3  Jan11      20   <NA>      NA   <NA>      NA

有些人因为它的语法而更喜欢reshape2包，但即使在那里，你还需要一个time变量才能做任何有趣的事情。

从上面继续（创建时间变量的地方）：

library(reshape2)
format2m <- melt(format2, id.vars=c("Id", "time"))
dcast(format2m, Id ~ variable + time)
#   Id date_1 date_2 date_3 Score_1 Score_2 Score_3
# 1  1  Jan10  Jun11  Dec11      52      43      67
# 2  2  Feb10  May10  Dec10      56      33      21
# 3  3  Jan11   <NA>   <NA>      20    <NA>    <NA>

当主题之间的“时间”值不同时，重新形成R.

1 个答案: