根据条件（位置）删除重复行

Question

我有一个看起来像这样的数据集

df <- data.frame("id" = c("Alpha", "Alpha", "Alpha","Alpha","Beta","Beta","Beta","Beta"), 
                 "Year" = c(1970,1970,1970,1971,1980,1980,1981,1982), 
                 "Val" = c(2,3,-2,5,2,5,3,5))

我对每个 id 和时间标识符都有多个观察结果 - 例如我有 3 个不同的 alpha 1970 值。我想每个 id/year 只保留一个观察结果，最值得注意的是每个 id/year 出现的最后一个观察结果。 最终数据集应如下所示：

final <- data.frame("id" = c("Alpha","Alpha","Beta","Beta","Beta"), 
                    "Year" = c(1970,1971,1980,1981,1982), 
                    "Val" = c(-2,5,5,3,5))

有谁知道我可以如何解决这个问题？

非常感谢您的帮助

Answer 1

如果您愿意接受data.table 解决方案，这可以非常简洁地完成：

library(data.table)

setDT(df)[, .SD[.N], by = c("id", "Year")]
#>       id Year Val
#> 1: Alpha 1970  -2
#> 2: Alpha 1971   5
#> 3:  Beta 1980   5
#> 4:  Beta 1981   3
#> 5:  Beta 1982   5

by = c("id", "Year") 按id 和Year 对data.table 进行分组，.SD[.N] 然后返回每个此类组中的最后一行。

Answer 2

这个怎么样？

library(tidyverse)

df <- data.frame("id" = c("Alpha", "Alpha", "Alpha","Alpha","Beta","Beta","Beta","Beta"), 
                 "Year" = c(1970,1970,1970,1971,1980,1980,1981,1982), 
                 "Val" = c(2,3,-2,5,2,5,3,5))

final <- 
  df %>% 
  group_by(id, Year) %>% 
  slice(n()) %>% 
  ungroup()

final
#> # A tibble: 5 x 3
#>   id     Year   Val
#>   <fct> <dbl> <dbl>
#> 1 Alpha  1970    -2
#> 2 Alpha  1971     5
#> 3 Beta   1980     5
#> 4 Beta   1981     3
#> 5 Beta   1982     5

^{由reprex package (v0.3.0) 于 2019 年 9 月 29 日创建}

翻译为“在每个id-Year组内，只取行号等于组大小的行，即当前排序下的最后一行。”

您也可以使用filter()，例如filter(row_number() == n()) 或 distinct()（然后你甚至不必分组），例如distinct(id, Year, .keep_all = TRUE) - 但distinct 函数采用第一个不同的行，因此您需要先在此处反转行顺序。

Answer 3

base R 的选项

aggregate(Val ~ ., df, tail, 1)
#     id Year Val
#1 Alpha 1970  -2
#2 Alpha 1971   5
#3  Beta 1980   5
#4  Beta 1981   3
#5  Beta 1982   5

如果我们需要选择第一行

aggregate(Val ~ ., df, head, 1)