2

使用这样的数据框

df <- data.frame(Season=c("1992","1993","1993"),
               Team=c("Man Utd.","Blackburn","Blackburn"),
               Player=c("Peter Schmeichel(42)","Tim Flowers(39)","Bobby Mimms(4)"),
               Order = c(1,1,2))

我如何做到这一点

   1992  Man Utd. Peter Schmeichel(42)     
   1993 Blackburn      Tim Flowers(39)  Bobby Mimms(4)
4

4 回答 4

3

这是一种选择：

library(reshape2)
dcast(df,Season+Team~Order,value.var = "Player")
于 2012-10-08T20:39:20.147 回答
2

这是一个解决方案：

library(plyr)
ddply(df, .(Season, Team), summarize, Players = paste(Player, collapse = " "))

#-----
  Season      Team                        Players
1   1992  Man Utd.           Peter Schmeichel(42)
2   1993 Blackburn Tim Flowers(39) Bobby Mimms(4)
于 2012-10-08T20:40:52.283 回答
2

坚持使用基础 R，您可以执行以下操作：

aggregate(list(Player = df$Player), 
          list(Season = df$Season, Team = df$Team), paste)
#   Season      Team                          Player
# 1   1993 Blackburn Tim Flowers(39), Bobby Mimms(4)
# 2   1992  Man Utd.            Peter Schmeichel(42)

更新

从接受的答案中看到您想要的输出后，请注意，这也可以使用 base R 的reshape()函数：

reshape(df, direction = "wide", idvar=c("Season", "Team"), timevar="Order")
#   Season      Team             Player.1       Player.2
# 1   1992  Man Utd. Peter Schmeichel(42)           <NA>
# 2   1993 Blackburn      Tim Flowers(39) Bobby Mimms(4)
于 2012-10-08T20:43:48.293 回答
0

另一种选择是使用`tidyr

library(tidyr)
spread(df,Order,Player)
于 2015-07-28T10:06:50.397 回答