求结婚年龄：拿结婚年月日减去出生年月日，计算出有的才两三岁时就结婚了，需要进行逻

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求结婚年龄：拿结婚年月日减去出生年月日，计算出有的才两三岁时就结婚了，需要进行逻辑判断，不知道怎么写代码，希望有大神帮帮忙。结婚年龄代码如下：data$fmarry_age<-year(data$Exam_marry_time)-year(data$Exam_fbirthday)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：出生年月日 结婚年龄 年月日 Marry Data

想问下如何进行逻辑判断

我觉得你找本R的数据操作的书稍微看看，这些问题都挺常规的，

https://bookdown.org/wangminjie/R4DS/

1. library(lubridate)
   
2. library(dplyr)
   
3. 
   
4. tbl <- tibble(birth = sample(seq(as.Date('1980/01/01'), as.Date('2000/01/01'), by="day"), 30),
   
5.               marry = sample(seq(as.Date('2002/01/01'), as.Date('2020/01/01'), by="day"), 30))
   
6. 
   
7. tbl <- tbl %>%
   
8.   mutate(age = year(marry) - year(birth)) %>%
   
9.   mutate(legal = ifelse(age >= 22, 'Yes', 'No'))

复制代码

顺便提一句，计算年龄，实际上用年相减并不是最严格的方法，实际上最好求两个日期（甚至时间）的差值，然后再转换成年会比较合理。

1. mutate(age = floor(interval(birth, marry) / years(1)))

复制代码

举一个极端例子，有一个人出生于2020年12月31日23点59分，现在时间是2021年1月1日0点1分，如果你以年来算的话，会算得1岁，但实际上他只有2分钟。

owenqi 发表于 2021-5-18 04:46
我觉得你找本R的数据操作的书稍微看看，这些问题都挺常规的，

谢谢回答和建议，刚入门，很多都不懂

owenqi 发表于 2021-5-18 05:06
顺便提一句，计算年龄，实际上用年相减并不是最严格的方法，实际上最好求两个日期（甚至时间）的差值，然后 ...

还是想问一下，这个
tbl <- tibble(birth = sample(seq(as.Date('1980/01/01'), as.Date('2000/01/01'), by="day"), 30),
              marry = sample(seq(as.Date('2002/01/01'), as.Date('2020/01/01'), by="day"), 30))
是指从'1980/01/01到'2000/01/01吗，30什么含义啊？人比较笨

hanchunying 发表于 2021-5-18 13:05
还是想问一下，这个
tbl

这个和你的关注的东西没什么关系，我只是从1980-01-01到2000-01-01随机选了30个日期而已。

owenqi 发表于 2021-5-19 00:01
这个和你的关注的东西没什么关系，我只是从1980-01-01到2000-01-01随机选了30个日期而已。

好的，谢谢