R语言apply函数数据框上下两行依次相除

在R语言中，`apply()` 函数通常用于对数据框（data frame）或矩阵进行向量化操作，比如你想将数据框的上一行除以下一行，这可以通过 `apply()` 结合一个自定义的函数来实现。不过，`apply()` 函数的一般用法是应用于某列或某维度的数据，而不是直接处理行间运算。

如果你有一个数据框，假设你需要将每一行的值除以前一行（从第二行开始），你可以考虑使用 `rollapply()` 或者先创建一个新的序列，然后逐行计算。这里我们假设你想要从第二行开始进行除法操作：

# 假设你的数据框叫做 df
df <- data.frame(
  # 这里是你的列名和内容
  col1 = c(1, 2, 3, 4),
  col2 = c(5, 6, 7, 8)
)

# 使用 rollapply() 函数，向下滚动一行进行除法
df_rollapply <- data.frame(
  new_col1 = rollapply(df$col1, width = nrow(df) - 1, FUN = function(x) x[2:length(x)] / x[1:(length(x) - 1)], fill = NA, align = "right"),
  new_col2 = rollapply(df$col2, width = nrow(df) - 1, FUN = function(x) x[2:length(x)] / x[1:(length(x) - 1)], fill = NA, align = "right")
)

# 现在 df_rollapply 中的 new_col1 和 new_col2 就是按照你描述的方式进行了行间的除法