R：使用最小日期和其他列的附加条件对行进行切片

Question

我有以下 dataframe

df =
id date           medication related_medication
1 2017-02-18      A          yes
1 2017-02-07      D          yes
2 2017-02-18      S          yes
2 2017-02-18      F          no
3 2017-02-18      A          yes
3 2017-02-01      F          yes

我只想记录每个 id 出现相关药物的最短日期。 在上面的例子中，我们只有个人 1 和 3 和 2 相关的药物（因为这个变量取值是）。 出于这个原因，我很想知道出现的最短日期。 结果表应如下所示：

df =
id date           medication related_medication
1 2017-02-07      D          yes
2 2017-02-18      S          yes
2 2017-02-18      F          no
3 2017-02-01      F          yes

到目前为止，我已经尝试过：

df_final <- df %>%
   slice(which.min(date))

但是我没有找到只有在满足某个条件时才能进行此操作的方法，即related_medication == "yes"

干杯

Answer 1

您可以使用slice_min

library(dplyr)
df %>% 
  group_by(id, related_medication) %>% 
  slice_min(date)

output

     id date       medication related_medication        
1     1 2017-02-07 D          yes               
2     2 2017-02-18 F          no                
3     2 2017-02-18 S          yes               
4     3 2017-02-01 F          yes               

如果一个人想保留所有观察结果，如果related_medication == "no" 。

df %>% 
  group_by(id) %>% 
  filter(date[related_medication == "yes"] == min(date[related_medication == "yes"]) |
         related_medication == "no")

Answer 2

使用data.table

library(data.table)
setDT(df)[, .SD[which.min(date)], .(id, related_medication)]

-输出

     id related_medication       date medication
   <int>             <char>     <Date>     <char>
1:     1                yes 2017-02-07          D
2:     2                yes 2017-02-18          S
3:     2                 no 2017-02-18          F
4:     3                yes 2017-02-01          F