计算R中一条线下的面积

Question

我有一个包含+1000行的数据集，我会计算每行下面的区域。例如，假设我有一个这样的数据集：

df<-rbind(c(0, 2, 0, 3, 0),
          c(2, 2, 0, 1, 0))

对于第一行，我将计算该图中该行下面的区域：

将是

> 2*2/2+2*3/2
[1] 5

对于第二行，它将是

> 1*2+1*2/2+2*1/2
[1] 4

我想知道是否有一种简单的方法可以在R中实现它？

Answer 1

试试pracma包

library(pracma)
trapz(df[1,])