R中的递归均值

Question

我如何为数据框中的列递归计算平均值？所以对于数据框

   X1 <- runif(50, 0, 1)

   X2 <- runif(50, 0, 10) 


   df <- data.frame(X1,X2)

计算第2列的平均值作为包括第1行的平均值，然后计算包括第1-2行的平均值，然后包括第1-3行的平均值，依此类推。我只找到了rapply函数，它只适用于列表。

Answer 1

以下是两种可能的选择：

# generic, not very efficient but you can use it to compute other functions, not only mean
DF$recursiveMean <- sapply(1:nrow(DF),function(i) mean(DF$X2[1:i]))
# very efficient way, but it only computes the mean
DF$recursiveMean <- cumsum(DF$X2)/1:nrow(DF)

Answer 2

答案在"Test\tString"

栏中

CumMean

Answer 3

我认为这可以通过dplyr得到你想要的东西。

$('.outputmsg_text').html("YOUR CUSTOM TEXT")