我想在你的tt[1,]里

class(tt[1,])
# [1] "data.frame"

所以如果你使用as.numeric，应该没问题。

diff(as.numeric(tt[1,]))

下面是一个我们可以检验的例子：

tt <- data.frame(x = 1, y = 2)
is.vector(tt[1,])
# [1] FALSE
class(tt[1,])
# [1] "data.frame"
diff(tt[1,])
# Error in r[i1] - r[-length(r):-(length(r) - lag + 1L)] : 
#   non-numeric argument to binary operator
as.numeric(tt[1,])
# [1] 1 2
diff(as.numeric(tt[1,]))
# [1] 1

这也适用于：

for (i1 in 1:length(dat.diff))
{
diffy <- diff(as.numeric(dat.diff[,i1]))
dat.diff[,i1] <- c(diffy, NA)
}

我不认为这个问题与类dataframe（df）有关。问题是你试图在一个可能是多列的df上运行diff（）。根据文档，diff所需的参数是一个向量或矩阵。我建议尝试一下：

TS_tt <- ts(tt$col, start= (the date you would like to start the time series)

然后运行：

adjusted_tt <- diff(tt, difference= 1)

希望这个有用。