如何为R中不同表中的每一列自动创建增长率表？

# 创建一个函数来计算增长率
calculate_growth <- function(data) {
  growth <- c(NA) # 创建一个空的增长率向量
  for (i in 2:length(data)) {
    growth[i] <- (data[i] - data[i-1]) / data[i-1] # 计算增长率
  }
  return(growth)
}

# 创建一个函数来为每个表中的每一列创建增长率表
create_growth_tables <- function(tables) {
  growth_tables <- list() # 创建一个空的增长率表列表
  for (table in tables) {
    growth_table <- data.frame() # 创建一个空的增长率表
    for (col in names(table)) {
      growth <- calculate_growth(table[[col]]) # 计算增长率
      growth_table <- cbind(growth_table, growth) # 将增长率添加到增长率表中
    }
    growth_tables[[length(growth_tables)+1]] <- growth_table # 将增长率表添加到增长率表列表中
  }
  return(growth_tables)
}

# 示例数据
table1 <- data.frame(A = c(10, 20, 30), B = c(100, 200, 300))
table2 <- data.frame(X = c(1, 2, 3), Y = c(0.1, 0.2, 0.3))

# 调用函数创建增长率表
tables <- list(table1, table2)
growth_tables <- create_growth_tables(tables)

# 打印增长率表
for (i in 1:length(growth_tables)) {
  cat("增长率表", i, ":\n")
  print(growth_tables[[i]])
}