Question

我想从这个结构出发：

game_id team pts
1 400597848 TOWS  53
2 400597848 COFC  50
3 400595519  ILL  49
4 400595519  WIS  68

对此：

game_id team1 pts1 team2 pts2
1 400597848 TOWS  53  COFC  50
3 400595519  ILL  49  WIS  68

以下是示例数据：

d <- structure(list(game_id = c(400597848L, 400597848L, 400595519L,
400595519L), team = c("TOWS", "COFC", "ILL", "WIS"), pts = c(53L,
50L, 49L, 68L)), .Names = c("game_id", "team", "pts"), row.names = c(NA,
4L), class = "data.frame")

我已尝试使用tidyr并遵循本教程： http://www.cookbook-r.com/Manipulating_data/Converting_data_between_wide_and_long_format/

然而，当我尝试：

 spread(d, team, pts)

我为所有球队重复列，但不想要所有组合。

Answer 1

<强> 1。 data.table

我们可以使用dcast的devel版本中的data.table，即v1.9.5，这可能需要多个＆＃39; value.var＆＃39;列。它可以从here安装。

转换＆＃39; data.frame＆＃39;到＆＃39; data.table＆＃39; （setDT(d)），创建一个序列列（＆＃39; ind＆＃39;），按＆＃39; game_id＆＃39;分组，然后在修改后的数据集上使用dcast指定＆＃ 39; value.var＆＃39;作为＆＃39;团队＆＃39;和＆＃39; pts＆＃39;。

dcast(setDT(d)[, ind:= 1:.N, by=game_id], game_id~ind, 
                   value.var=c('team', 'pts'))
#     game_id 1_team 2_team 1_pts 2_pts
#1: 400595519    ILL    WIS    49    68
#2: 400597848   TOWS   COFC    53    50

<强> 2。基础R

另一个选项是在创建＆＃39; ind＆＃39;之后使用reshape中的base R。列。

 d1 <- transform(d, ind=ave(seq_along(game_id), game_id, FUN=seq_along))

 reshape(d1, idvar='game_id', timevar='ind', direction='wide')
 #    game_id team.1 pts.1 team.2 pts.2
 #1 400597848   TOWS    53   COFC    50
 #3 400595519    ILL    49    WIS    68

尝试从长格式转换为宽格式，但最终得到每个变量组合

1 个答案: