编写一个函数来提取所需的数据.

extract_attr <- function(x) {
  v <- attr(x, "names")
  ci <- attr(x, "ci")
  y <- cbind(data.frame(var = v, prop = c(x)), as.data.frame(t(ci)))
  row.names(y) <- NULL
  y
}

extract_attr(props_and_cis[[1]])
#>    var      prop     2.5%     97.5%
#> 1 var1 0.9324031 0.825648 0.9757151

^{创建于2023-03-30，共reprex v2.0.2个}

然后，对列表成员执行lapply次函数，并对结果执行rbind次，以获得一个data.Frame.在下面的示例中，我重复已发布的数据示例，所有列表成员彼此相等.

res <- lapply(props_and_cis, extract_attr)
do.call(rbind, res)
#>    var      prop     2.5%     97.5%
#> 1 var1 0.9324031 0.825648 0.9757151
#> 2 var1 0.9324031 0.825648 0.9757151
#> 3 var1 0.9324031 0.825648 0.9757151

^{创建于2023-03-30，共reprex v2.0.2个}

Data

posted <-   structure(c(var1 = 0.932403111115339), 
                      var = structure(0.00119910004765771, dim = c(1L, 1L),
                                      dimnames = list("as.numeric(var1)", "as.numeric(var1)")),
                      ci = c(`2.5%` = 0.825647967272783, `97.5%` = 0.975715067477937), 
                      class = "svyciprop")

props_and_cis <- list(posted, posted, posted)

^{创建于2023-03-30，共reprex v2.0.2个}