R 如何检查后代是否比父母年轻？

我想看看一个人是否真的比他的父母年轻。每个人都有身份证、出生年份、妈妈和爸爸。数据集是一个数据帧。有人有主意吗

身份证件 年 莫米德 达迪德 1. 1975 NA NA 2. 1975 NA NA 3. 1976 NA NA 4. 1977 1. 2. 5. 1973 3. 2. 我们可以使用match获得相应的爸爸妈妈年份，并将其与原始年份进行比较

资料

df <- transform(df, is_Younger_than_Parents = Year > Year[match(MomID, ID)] & 
                                              Year > Year[match(DadID, ID)])
df

#  ID Year MomID DadID is_Younger_than_Parents
#1  1 1975    NA    NA                      NA
#2  2 1975    NA    NA                      NA
#3  3 1976    NA    NA                      NA
#4  4 1977     1     2                    TRUE
#5  5 1973     3     2                   FALSE

df <- structure(list(ID = 1:5, Year = c(1975L, 1975L, 1976L, 1977L, 
1973L), MomID = c(NA, NA, NA, 1L, 3L), DadID = c(NA, NA, NA, 
2L, 2L)), class = "data.frame", row.names = c(NA, -5L))