Question

假设我有一个如下所示的数据框：

    id start_date death_date
    1 2011-05-20 2014-12-11
    2 2014-08-01 2016-01-05
    3 2005-01-02 2015-10-20
    4 2015-06-30 2016-02-14
    5 2014-07-01 2014-09-03

我想创建一个新列，其中包含death_date和start_date之间的差异，无需start_date在2014-05-31之前。如果start_date＆lt; 2014-05-31，那么我希望新专栏能够在几个月内成为death_date与2014-05-31之间的差异。

创建示例数据帧的代码：

id <- c(1:5)
start_date <- c(as.Date("2011-05-20"), as.Date("2014-08-01"),
            as.Date("2005-01-02"), as.Date("2015-06-30"),
            as.Date("2014-07-01"))

death_date <- c(as.Date("2014-12-11"), as.Date("2016-01-05"),
            as.Date("2015-10-20"), as.Date("2016-02-14"),
            as.Date("2014-09-03"))

example_dates <- data.frame(id, start_date, death_date)

Answer 1

试试这个：

df$new_col <- round(ifelse(df$start_date<as.Date("2014-05-31"), 
               df$death_date-as.Date("2014-05-31"), df$death_date-df$start_date)/30, 2)

  # id start_date death_date new_col
# 1  1 2011-05-20 2014-12-11    6.47
# 2  2 2014-08-01 2016-01-05   17.40
# 3  3 2005-01-02 2015-10-20   16.90
# 4  4 2015-06-30 2016-02-14    7.63
# 5  5 2014-07-01 2014-09-03    2.13

通过从结束日期减去开始日期来计算人年

1 个答案: