在R中使用lapply遍历列时计算行值的百分比变化

library(dplyr)
library(tidyr)

data <- data.frame(
  A = c(10, 20, 30, 40),
  B = c(15, 25, 35, 45),
  C = c(12, 22, 32, 42)
)

result <- lapply(data, function(col) {
  percent_change <- (col - lag(col)) / lag(col) * 100
  percent_change[is.na(percent_change)] <- 0
  percent_change
})

result_df <- as.data.frame(result)
result_df <- result_df %>% 
  mutate(row = row_number()) %>% 
  pivot_longer(-row, names_to = "column", values_to = "percent_change")

data_with_percent_change <- data %>% 
  mutate(row = row_number()) %>% 
  pivot_longer(-row, names_to = "column", values_to = "value") %>% 
  left_join(result_df, by = c("row", "column")) %>% 
  select(-row)