r - 在分组依据之后为列添加原始值

Question

对于下面的数据框，我想在 ID 和事件的 group_by 和任务的 max() 之后添加 Var_x 的原始值，但我无法获取我的代码正确。有什么建议么？顺便说一句，在我的原始数据框中，需要添加超过 1 列。

df <- data.frame(ID = c(1,1,1,1,1,1,2,2,2,3,3,3),
                 quest = c(1,1,2,2,3,3,1,2,3,1,2,3),
                 event = c("A","B","A","B","A",NA,"C","D","C","D","D",NA),
                 VAR_X = c(2,4,3,6,3,NA,6,4,5,7,5,NA))

代码:

df %>%
  group_by(ID,event) %>%
  summarise(quest = max(quest))

期望的输出:

  ID quest event VAR_X
1  1     2     B     6
2  1     3     A     3
3  2     2     D     4
4  2     3     C     5
5  3     2     D     5

Answer 1

首先省略 na 值，最后对原始数据集执行 inner_join。

df %>%
  na.omit() %>%
  group_by(ID, event) %>%
  summarise(quest = max(quest)) %>%
  inner_join(df, by = c("ID", "event", "quest"))
## A tibble: 5 x 4
## Groups:   ID [3]
#     ID event quest VAR_X
#  <dbl> <fct> <dbl> <dbl>
#1     1 A         3     3
#2     1 B         2     6
#3     2 C         3     5
#4     2 D         2     4
#5     3 D         2     5