1

我需要转换一些以摘要形式出现的数据。首先是长格式，然后是宽格式。

对于每个 id，我们都有一个 id 执行活动的次数。数据是有序的。

比如对于id 1，他先执行3次“a”，然后4次“c”，以此类推。

data = rbind(
  c(1, 'a', 3, 1), 
  c(1, 'c', 4, 2), 
  c(1, 'b', 6, 3), 
  c(2, 'a', 2, 1), 
  c(2, 'c', 1, 2), 
  c(2, 'a', 5, 3) 
  )
data = as.data.frame(data)
colnames(data) = c('id', 'act', 'times', 'order')

  id act times order
  1   a     3     1
  1   a     4     2
  1   b     6     3
  2   a     2     1
  2   c     1     2
  2   a     5     3

首先，我需要将此数据集转换为长格式。对于每个 id，我需要重复活动（有序），它已完成的次数。

  id act
  1  a
  1  a
  1  a
  ...
  1  b
  2  a
  2  a
  2  c
  2  a
  ...

我正在使用类似的东西

as.data.frame( cbind( as.character( rep(data$id, data$times)), as.character( rep(data$act, data$times))) )

但这太麻烦了。

我的第一个问题是：您有简化这种转换的解决方案吗？

然后，一旦将数据转换为这种长格式，我需要再次将其转换为宽格式以获得类似

 id  act_time1 act_time2 act_time3 act_time... act_timeN
 "1" "a"       "a"       "a"       "..."       "b"      
 "2" "a"       "a"       "c"       "..."       "a"

显然，我在这里没有正确使用演员表

cast(dataLong, formula = V1 ~ V2, value.var = 'V2')

有什么解决办法吗？

4

0 回答 0