从列表中的对象中提取属性并将其写入 Dataframe

qkf9rpyu 于 2023-04-03 发布在其他

关注(0)|答案(1)|浏览(139)

我有一个对象列表（survey：：svyciprop的输出），我正在尝试提取它们的属性，以创建一个包含所有结果的数据框。

#example of an object
props_and_cis[[1]]
                2.5% 97.5%
var1     0.932 0.826  0.98

我已经弄清楚了如何在单独的列中提取我想要的每个项目：

var <- attr(props_and_cis[[1]],"names")
prop <- as.vector(props_and_cis[[1]])
ci_lower <- attr(props_and_cis[[1]], "ci")[1]
ci_upper <- attr(props_and_cis[[1]], "ci")[2]

我想遍历列表props_and_cis中的每个对象，并将提取的内容写入 Dataframe ，例如：

tribble(
  ~variable, ~prop, ~ci_lower, ~ci_upper,
  var,prop,ci_lower,ci_upper
)

但我好像不能让它工作。有人能帮忙吗？
预计到达时间：

> dput(props_and_cis[[1]])
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")

r

来源：https://stackoverflow.com/questions/75892113/extract-attributes-from-objects-in-a-list-and-write-them-into-a-dataframe

1条答案

按热度按时间

fdbelqdn1#

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

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年3月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

数据

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

赞(0）回复(0）举报 2023-04-03

我来回答

从列表中的对象中提取属性并将其写入 Dataframe

1条答案

数据

相关问题

热门标签

最新问答