对数据框的最后 N 个值进行子集化，R答案

【问题标题】：Subsetting Last N Values From a Data Frame, R对数据框的最后 N 个值进行子集化，R
【发布时间】：2013-11-27 16:31:50
【问题描述】：

我有一个足球赛季所有结果的数据框，位于名为new 的数据框中。我想提取所有球队主客场的最后5场比赛。 home 变量是第 1 列，away 变量是第 2 列。

假设在一个名为teams 的字符向量中有 20 个团队，每个团队都有一个唯一的名称。如果它只是一个团队，则很容易进行子集化 - 假设 team1 是 "Arsenal"，使用类似

 Arsenal <- "Arsenal"
 head(new[new[,1] == Arsenal | new[,2] == Arsenal,], 5)

但是我想循环遍历字符向量teams，得到所有队伍的最后5个结果，一共20个。有人可以帮我吗？

编辑：这是一些示例数据。举个例子，我想获得所有球队的最后两场比赛——很容易对一个球队进行子集化，但我不确定如何对多个球队进行子集化。

             V1          V2 V3 V4         V5
1       Chelsea     Everton  2  1 19/05/2013
2     Liverpool         QPR  1  0 19/05/2013
3      Man City     Norwich  2  3 19/05/2013
4     Newcastle     Arsenal  0  1 19/05/2013
5   Southampton       Stoke  1  1 19/05/2013
6       Swansea      Fulham  0  3 19/05/2013
7     Tottenham  Sunderland  1  0 19/05/2013
8     West Brom  Man United  5  5 19/05/2013
9      West Ham     Reading  4  2 19/05/2013
10        Wigan Aston Villa  2  2 19/05/2013
11      Arsenal       Wigan  4  1 14/05/2013
12      Reading    Man City  0  2 14/05/2013
13      Everton    West Ham  2  0 12/05/2013
14       Fulham   Liverpool  1  3 12/05/2013
15   Man United     Swansea  2  1 12/05/2013
16      Norwich   West Brom  4  0 12/05/2013
17          QPR   Newcastle  1  2 12/05/2013
18        Stoke   Tottenham  1  2 12/05/2013
19   Sunderland Southampton  1  1 12/05/2013
20  Aston Villa     Chelsea  1  2 11/05/2013
21      Chelsea   Tottenham  2  2 08/05/2013
22     Man City   West Brom  1  0 07/05/2013
23        Wigan     Swansea  2  3 07/05/2013
24   Sunderland       Stoke  1  1 06/05/2013
25    Liverpool     Everton  0  0 05/05/2013
26   Man United     Chelsea  0  1 05/05/2013
27       Fulham     Reading  2  4 04/05/2013
28      Norwich Aston Villa  1  2 04/05/2013
29          QPR     Arsenal  0  1 04/05/2013
30      Swansea    Man City  0  0 04/05/2013
31    Tottenham Southampton  1  0 04/05/2013
32    West Brom       Wigan  2  3 04/05/2013
33     West Ham   Newcastle  0  0 04/05/2013
34  Aston Villa  Sunderland  6  1 29/04/2013
35      Arsenal  Man United  1  1 28/04/2013
36      Chelsea     Swansea  2  0 28/04/2013
37      Reading         QPR  0  0 28/04/2013
38      Everton      Fulham  1  0 27/04/2013
39     Man City    West Ham  2  1 27/04/2013
40    Newcastle   Liverpool  0  6 27/04/2013
41  Southampton   West Brom  0  3 27/04/2013
42        Stoke     Norwich  1  0 27/04/2013
43        Wigan   Tottenham  2  2 27/04/2013

【问题讨论】：

您可能正在寻找by 函数，但请在您的问题中发布一些示例数据。
head 给出前五个结果，您可能想使用tail。
抱歉忘了说我已经把它整理好了，所以最近的结果出现在顶部。

标签： arrays r subset

【解决方案1】：

df 是您的 data.frame，这将创建一个包含 20 个 data.frame 的列表，每个元素都是一个团队的数据集。这也假设数据集已经排序，因为您提到了它。

 setnames(df,c('hometeam','awayteam','homegoals','awaygoals','fixturedate'))

 allteams <- sort(unique(df$hometeam))

 eachteamlastfive <- vector(mode = "list", length = length(allteams))

 for ( i in seq(length(allteams)))
 {
 eachteamlastfive[[i]] <- head(df[df$hometeam==allteams[i] | df$awayteam == allteams[i], ],5)
 }

【讨论】：

【解决方案2】：

看看sapply

sapply(unique(new[,1]), function(team) head(new[new[,1] == team | new[,2] == team,], 5))

【讨论】：