Question

我已经汇编了包含nls系数的数据框列表。这是自定义bootstrapping（实际上，bagging）方法的一部分。我想计算数据框中每个参数的平均值。

在对xdata和ydata进行采样后，该列表将填充在一个包含以下内容的循环中：

nls(ydata ~ A*cos(2*pi*((xdata-x_0)/z))+M,start=list(A=4,M=-7,x_0=-10,z=30))
fitdata = summary(fit)$coefficients
fitresults[[i]] = fitdata

该列表包含100个数据框，如下所示：

     Estimate Std. Error    t value     Pr(>|t|)
A    3.945959  0.1729441  22.816381 3.440064e-14
M   -8.349697  0.1656195 -50.414926 5.920106e-20
x_0 -3.677582  0.5717355  -6.432313 6.194560e-06
z   33.680613  1.1314373  29.767989 4.158598e-16

我想计算整个列表中第一列中每个元素的平均值。所以，估计的A，M，x_0和z。

我使用dply函数玩了一下，但我无法理解。

非常感谢！

Answer 1

要重现我的示例，我只需创建一个名为mylist的列表，其中包含两个数据帧。第一列有很多可能性，一个是sapply列表，如下所示：

set.seed(1)
mylist <- list(list1 = data.frame(matrix(rnorm(16), 
                                 ncol = 4, 
                                 nrow = 4, 
                                 dimnames = list(row = c("A", "M", "x_0", "z"),
                                                 column = c("Estimate", 
                                                            "Std.Error", 
                                                            "t_Value", 
                                                            "Pr(<|t|)")))),

           list2 = data.frame(matrix(rnorm(16), 
                                     ncol = 4, 
                                     nrow = 4, 
                                     dimnames = list(row = c("A", "M", "x_0", "z"),
                                                     column = c("Estimate", 
                                                                "Std.Error", 
                                                                "t_Value", 
                                                                "Pr(<|t|)")))))

mylist

$list1
      Estimate  Std.Error    t_Value    Pr...t..
A   -0.6264538  0.3295078  0.5757814 -0.62124058
M    0.1836433 -0.8204684 -0.3053884 -2.21469989
x_0 -0.8356286  0.4874291  1.5117812  1.12493092
z    1.5952808  0.7383247  0.3898432 -0.04493361

$list2
      Estimate   Std.Error     t_Value   Pr...t..
A   -0.01619026  0.91897737  0.61982575 -0.4781501
M    0.94383621  0.78213630 -0.05612874  0.4179416
x_0  0.82122120  0.07456498 -0.15579551  1.3586796
z    0.59390132 -1.98935170 -1.47075238 -0.1027877

然后：

result <- data.frame(Estimates = apply(sapply(mylist, function(x) x[, "Estimate"]), 1, mean))
rownames(result) <- c("A", "M", "x_0", "z")

result
      Estimates
A   -0.321322037
M    0.563739767
x_0 -0.007203709
z    1.094591062

R：获取列表中包含的数据帧中元素的均值

1 个答案: