Как рассчитать ежедневное изменение процента и трехдневное изменение процента R?

Question

У меня есть база данных, с которой я хочу рассчитывать процентное изменение день ото дня, а также за три дня, но когда я делаю это, результаты на самом деле не кажутся правильными.

ads <- data.frame(ad = c(ad1, ad1, ad1, ad1, ad2, ad2, ad2, ad3, ad3, ad3), 
                  date = c("11-10", "11-11", "11-12", "11-13", "11-10", "11-11", "11-12", "11-10", "11-11", "11-12"), 
                  likes = c(20, 30, 18, 5, 34, 68, 55, 44, 33, 20),
                  comments = c(21, 22, 10, 1, 10, 43, 24, 34, 21, 11))

так что у меня есть это:

daily_pct <- function(x) x/lag(x)
three_pct <- function(x) x/lag(x ,k = 3)

daily_pct_change <- ads %>%
     mutate_each(funs(daily_pct), c(likes,comments))

three_pct_change <- ads %>% 
     mutate_each(funs(three_pct), c(likes, comments))

Я делаю это правильно?Я не могу понять, как заставить трехдневку работать.Спасибо!

Answer 1

Вы можете попробовать:

df %>% 
  mutate_at(.vars = vars(dplyr::matches("(likes)|(comments)")), 
            funs(daily_change = ./lag(.)*100,
                 three_day_change = ./lag(., 3)*100))

Аналогично, если вам не нужны переменные объявления и даты:

df %>% 
  select(likes, comments) %>% 
  mutate_all(funs(daily_change = ./lag(.)*100,
                 three_day_change = ./lag(., 3)*100))

Или, если они вам нужны:

df %>% 
  select(likes, comments) %>% 
  mutate_all(funs(daily_change = ./lag(.)*100,
                 three_day_change = ./lag(., 3)*100)) %>% 
  rowid_to_column() %>% 
  left_join(df %>% rowid_to_column() %>% select(rowid, ad, date), by = c("rowid" = "rowid")) %>%
  select(-rowid)

Кроме того, вы можете получить те же результаты, внеся небольшую модификацию исходного кода:

daily_pct <- function(x) x/lag(x)*100
three_pct <- function(x) x/lag(x, 3)*100

df %>% 
  mutate_at(.vars = vars(dplyr::matches("(likes)|(comments)")), 
            funs(daily_change = daily_pct,
                 three_day_change = three_pct))