R应用函数计算数据帧的日志差异

我有一个数据帧：

df1 <- data.frame(a=runif(10),b=runif(10),c=runif(10))
df1

---

df1匿名函数
function（x）
返回该列的值，而不是其索引，因此我们必须在“x”上获取
log

r1 <-apply(df1,2,function(x) diff(log(x), lag=1))

谢谢，就这样。谢谢你发现我的错误。谢谢你的帮助。
r1 <-apply(df1,2,function(x) diff(log(x), lag=1))

library(matrixStats)
r2 <- colDiffs(log(as.matrix(df1)))
all.equal(r1, r2, check.attributes=FALSE)
#[1] TRUE