for循环中减法的索引问题

我试图找出代码中的错误，因为我试图使用for循环对下一行进行减法

aa <- for(i in 1:nrow(df)) {
    df$subset <- df$AMZN[(i + 1)] - df$AMZN[(i)]
}

---

aa在左侧设置索引
[i]
：

data(iris)

df <- iris
aa<-for(i in 1:nrow(df)){
  df$subset[i] <-df$Sepal.Length[(i+1)]-df$Sepal.Length[(i)]
}

数据（iris）
df