R：当纵向数据中某一列的值相同时，如何保留相同 ID 中的最后 2-3 行？

Question

使用 R，我想选择相同 ID 内的最后一行作为纵向数据。但是，当时间列中的值相同（例如，ID 1 的值 5 和 ID 3 的值 4）时，我希望在相同的 ID 中保留最后 2-3 行（ID 1 的 2 行） ID 3) 为 3 行。如果相同 ID 中时间列中的值不同，我只想保留最后一行（例如 ID 2 的值 7）。

我的数据框如下：

id time    dx    code
1   1   primary   A1
1   5   primary   D2
1   5   secondary B3
2   1   primary   A2
2   7   primary   C4
3   4   primary   A1
3   4   secondary B3
3   4   tertiary  D2

我想要以下结果：

id time    dx    code
1   5   primary   D2
1   5   secondary B3
2   7   primary   C4
3   4   primary   A1
3   4   secondary B3
3   4   tertiary  D2

当我使用以下 R 脚本时，d %>% group_by(id) %>% filter(row_number() == n())，这些仅保留每个 ID 中的最后一行。任何帮助将不胜感激！

Answer 1

您也可以 group_by dx 并使用 slice_tail：

dat %>% 
  group_by(id, dx) %>% 
  slice_tail(n = 1)

# A tibble: 6 x 4
# Groups:   id, dx [6]
     id  time dx        code 
  <int> <int> <chr>     <chr>
1     1     5 primary   D2   
2     1     5 secondary B3   
3     2     7 primary   C4   
4     3     4 primary   A1   
5     3     4 secondary B3   
6     3     4 tertiary  D2