Question

我怀疑这是一个小问题，但我无法弄清楚。我有一个生成该列表数据的打包函数的输出：

output <- list(structure(c(69, 1.52224832314379, 5.1, 0.362256088534843, 
46.9, -0.0364138250590129, 90.7, 3.0809104713466), .Dim = c(2L, 
4L), .Dimnames = list(structure(c("N", "k"), .Dim = 1:2), c("Estimate", 
"SE", "95% LCI", "95% UCI"))))

我想将其转换为带有列c（“ Parameter”，“ Estimate”， “ SE”，“ 95％LCI”，“ 95％UCI”），其中参数= c（“ N”，“ k”）

我尝试了dplyr :: unnest（output）no applicable method for 'unnest' applied to an object of class "list"，unlist（output）返回c(69, 1.52224832314379, 5.1, 0.362256088534843, 46.9, -0.0364138250590129, 90.7, 3.0809104713466)，但不保留任何名称。 purrr :: flatten（output）也不保留任何名称。

顺便说一句，我也无法弄清楚如何将名称从列表中拉出-dimnames（）和names（）返回NULL。

Answer 1

您可以使用以下内容：

library(tidyverse) # alternatively, you can load purrr and dplyr libraries only

output %>% 
  pluck(1) %>% 
  as_tibble(rownames = NA) %>% 
  rownames_to_column(var = "Parameter")

# A tibble: 2 x 5
  parameter Estimate    SE `95% LCI` `95% UCI`
  <chr>        <dbl> <dbl>     <dbl>     <dbl>
1 N            69    5.1     46.9        90.7 
2 k             1.52 0.362   -0.0364      3.08

Answer 2

如果您查看对象的类

> class(output)
[1] "list"

> class(output[[1]])
[1] "matrix"

您可以简单地做到：

library(magrittr)
df <- as.data.frame(output) %>% tibble::rownames_to_column("Parameter")

  Parameter  Estimate        SE    X95..LCI X95..UCI
1         N 69.000000 5.1000000 46.90000000 90.70000
2         k  1.522248 0.3622561 -0.03641383  3.08091

取消嵌套列表并保留名称

2 个答案: