使用rollapply计算每周的百分比变化

library(dplyr)
library(zoo)

# 假设数据保存在一个名为data的数据框中，其中包含日期和数值两列
data <- data.frame(date = c("2022-01-01", "2022-01-08", "2022-01-15", "2022-01-22"),
                   value = c(100, 120, 80, 90))

# 将日期转换为日期类型
data$date <- as.Date(data$date)

# 按照周进行分组
data <- data %>% 
  group_by(week = format(date, "%Y-%U")) %>%
  arrange(date) %>%
  ungroup()

# 定义一个函数，用于计算百分比变化
percent_change <- function(x) {
  (x[2] - x[1]) / x[1] * 100
}

# 使用rollapply函数计算每周的百分比变化
data <- data %>% 
  mutate(weekly_change = rollapply(value, 2, percent_change, align = "left", fill = NA))

# 打印结果
print(data)