計算人年減去開始日期從結束日期

假設我有一個數據幀，看起來像這樣：計算人年減去開始日期從結束日期

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和起始日期間的差異的新列，除非起始日期爲2014-05-31之前。如果啓動日期爲2014年5月31日，那麼我希望新的列是死亡日期和2014年5月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)

來源

2016-10-03 epi_n00b

'$例如差異< - 例如$ death_date - 例如$ start_date'？ – Jaap

@ProcrastinatusMaximus，但規定如果start_date在2014-05-31之前，則執行example_dates $ death_date - 「2014-05-31」。這是我的問題 –

在上面的註釋中用'ifelse'替代'example $ start_date'（例子$ start_date Jaap

試試這個：

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

來源

2016-10-03 20:22:06 989

計算人年減去開始日期從結束日期

回答

相關問題