データベースで年齢を見つけたかったのですが、この回答を使用して問題を解決しました。週、月、四半期、年の観点から日付の違いを取得しますか?
私が年を見つけるために使用したこのコード
age <- function(dob, age.day = today(), units = "years", floor = TRUE) {
calc.age = interval(dob, age.day) / duration(num = 1, units = units)
if (floor) return(as.integer(floor(calc.age)))
return(calc.age)
}
しかし、forループを使用してループを実行し、データベースの顧客の新しい列に値を保存しようとすると、それができません。
for (i in customer$dateofbirth) {
as.Date(i)
customer$age <- age(i)
}
私が得ている結果は、年齢列の同じ値です。どこが間違っているのですか?
library(dplyr)
customer <- customer %>%
rowwise() %>%
mutate(age = age(as.Date(dateofbirth)))
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加