我在面板結構中有一個大資料框（201720 行；3 列），如下所示：
Name <- c("A", "A", "A", "B", "B", "B")
Inception <- c(as.Date("2007-12-31"), as.Date("2007-12-31"), as.Date("2007-12-31"),
as.Date("1990-12-31"), as.Date("1990-12-31"), as.Date("1990-12-31"))
Months <- c(as.Date("2010-01-01"), as.Date("2010-02-01"), as.Date("2010-03-01"),
as.Date("2010-01-01"), as.Date("2010-02-01"), as.Date("2010-03-01"))
df <- data.frame(Name, Inception, Months)
我想計算每一行的?Inception?和?Months?月份的差異，并將其分配給一個名為?Age?的新列。如果結果是否定的，則應填寫 NA。我想出了以下解決方案并且它有效。但是，它的計算速度不是很快。
for (i in 1:nrow(df)){
if(df[i,2]>df[i,3]){
df[i,"Age"] <- NA
} else {
df[i,"Age"] <- interval(df[i,2],
df[i,3]) %/% months(1)
}
}
有沒有更有效的方法來計算這種差異？
uj5u.com熱心網友回復：
我們可以用case_when
library(dplyr)
library(lubridate)
df <- df %>%
mutate(Age = case_when(Inception <= Months
~ interval(Inception, Months) %/% months(1)))
-輸出
df
Name Inception Months Age
1 A 2007-12-31 2010-01-01 24
2 A 2007-12-31 2010-02-01 25
3 A 2007-12-31 2010-03-01 26
4 B 1990-12-31 2010-01-01 228
5 B 1990-12-31 2010-02-01 229
6 B 1990-12-31 2010-03-01 230
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/470685.html
上一篇：如何在R中使用日期列條件從不同列中獲取最大值和平均值？
下一篇：嵌套for回圈中向量之間的計算