在R中使用min()查找最年轻的子代
在R中使用min()查找最年轻的子代
提问于 2021-04-19 13:32:51
我有一个谱系数据集，为了进行一些计算和估计，我需要找到一个人最年轻后代的出生年份。我尝试过min()函数，我认为它和match()一起在匹配父母ID和个人ID方面扮演着重要的角色，但这只给了我一个答案。你知道我怎么解决这个问题吗？
id <- 1:30
momid <- c(NA, NA, NA, NA, NA, NA, NA, NA, NA, 1,2,1,2,6,8,6,10,11,13,23,19,16,13,16,20,19,16,19,20,23)
dadid <- c(NA, NA, NA, NA, NA, NA, NA, NA, NA, 3,4,5,5,7,4,9,7,7,14,24,7,15,18,18,17,21,14,18,21,17)
birthyear <- c(1975, 1975, 1976, 1977, 1977, 1977, 1977, 1978, 1978, 1980, 1981, 1982, 1982, 1984, 1984, 1985, 1985, 1979, 1988, 1989, 1990, 1990, 1991, 1992, 1993, 1993, 1993, 1995, 1995, 1996)
df <- data.frame(id, momid, dadid, birthyear)
min(df$birthyear[match(df$id, df$momid)])
[1] NA
with(df, min(birthyear[match(momid, id)]))
[1] NA回答 2
Stack Overflow用户
回答已采纳
发布于 2021-04-20 07:10:09
这是@GKi的答案，所以这不是我自己的答案。但GKi将其作为评论发布，因此我将其重新发布为结束问题的答案。
df$firstoffspring <- sapply(df$id, function(i) min(df$birthyear[df$momid == i | df$dadid==i], na.rm=TRUE))Stack Overflow用户
发布于 2021-04-19 13:35:41
尝试启用na.rm = TRUE
> min(df$birthyear[match(df$id, df$momid)],na.rm = TRUE)
[1] 1979页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67163025
复制相关文章
![在 JavaScript 中优雅的提取循环内的数据 [每日前端夜话0x2D]](https://ask.qcloudimg.com/http-save/yehe-1120945/e2o4otdx9b.jpeg)
点击加载更多
相似问题
从括号内提取(子)字符串
MySQL中的按组查询忽略括号内的值
从SQL insert查询字符串中提取引用的值
从python中括号内提取数据
如何从‘`onclick`’属性值括号内提取数据？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
