Я использую набор данных для расчета роста доходов за 2000-2019 гг. И рассчитываю заработок за каждый месяц в течение этих лет. Это в формате ymd, например, 2000-01-01
Я пытаюсь вычислить темп роста между месяцами, но он не позволяет мне правильно использовать функцию отставания из-за даты в столбце year формат, как указано выше.
Код:
average_weekly_earnings <- average_weekly_earnings %>%
group_by(year) %>%
mutate(diff_earnings_average = year - lag(year),
diff_aveearnings_growth = realawe - lag(realawe),
rate_percent_average = (diff_aveearnings_growth/diff_earnings_average)/realawe*100)
Error in /.difftime(diff_aveearnings_growth,diff_earninigs_average: second argument of /cannot be a 'difftime'object
Этот код появляется, когда я пытаюсь его запустить.
Кто-нибудь знает, как это исправить?
Это вывод dput:
structure(list(year = structure(c(946684800, 949363200, 951868800,
954547200), class = c("POSIXct", "POSIXt"), tzone = "UTC"), realawe = c(421.168268440558,
410.160453374782, 422.012733947076, 423.306583956499), diff_aveearnings_growth = c(NA,
-11.0078150657755, 11.8522805722941, 1.29385000942239), rate_percent_average = c(NA,
-2.68378264535347, 2.80851254450074, 0.305653173954731)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -4L))