如何根据条件选择行？

Question

我有一个很大的Excel表，其中包含有关不同部门的信息-主要是日期。到目前为止，我所做的是手动提取日期并进行计算。它运作良好，但经过硬编码：

#    Departement 1
aufnahmediagnose_days_abteilung1 <- as.Date(as.character(dat$ad_first[1:2]), format="%Y-%m-%d") - as.Date(as.character(dat$ad_occ[1:2]), format="%Y-%m-%d")
aufnahmediagnose_days_abteilung1 <- na.omit(aufnahmediagnose_days_abteilung1)
aufnahmediagnose_days_abteilung1 <- as.numeric(sum(aufnahmediagnose_days_abteilung1) / length(aufnahmediagnose_days_abteilung1))
#    Dempartment 2
aufnahmediagnose_days_abteilung2 <- as.Date(as.character(dat$ad_first[3:5]), format="%Y-%m-%d") - as.Date(as.character(dat$ad_occ[3:5]), format="%Y-%m-%d")
aufnahmediagnose_days_abteilung2 <- na.omit(aufnahmediagnose_days_abteilung2)
aufnahmediagnose_days_abteilung2 <- as.numeric(sum(aufnahmediagnose_days_abteilung2) / length(aufnahmediagnose_days_abteilung2))

就像您看到的那样，我使用的是硬编码索引，例如[3：5]（因为这是我要寻找的部门之一）。第一部门和第二部门之间的区别在于第一列（record_id）中的信息，就像您在表格的以下标题中看到的一样：

record_id redcap_event_na… department his   has_dob has_sex has_ad has_hd has_icdnd
      <dbl> <chr>                 <dbl> <chr>   <dbl>   <dbl>  <dbl>  <dbl>     <dbl>
1         1 fall_1_arm_1              1 Orbis       1       1      1      1         1
2         1 fall_2_arm_1             NA NA         NA      NA     NA     NA        NA
3         2 fall_1_arm_1             NA NA         NA      NA     NA     NA        NA
4         2 fall_2_arm_1             NA NA         NA      NA     NA     NA        NA
5         2 fall_3_arm_1             NA NA         NA      NA     NA     NA        NA

我需要的列（ad_first和ad_occ）在这里不可见，因为我只是显示标题。前2行的RecordID为1。

在条件为ad_first等于1的情况下，如何从ad_occ和RecordID中选择确切的行？