如何将含置信区间列表的dataframe转换为tribble或dataframe？

要将给定的嵌套置信区间数据转换为tribble格式，可按以下步骤操作：

步骤1：加载必要包并读取原始数据 #

首先加载tibble包（未安装的话先运行install.packages("tibble")），并将原始数据存入对象：

library(tibble)

df <- structure(list(A = list(structure(c(0.0208625254600925, 0.484137748685967), conf.level = 0.95)), B = list(structure(c(0.0165759134400838, 0.404602696603372), conf.level = 0.95)), C = list(structure(c(0.102983550772617, 0.435400345988533), conf.level = 0.95)), D = list(structure(c(0.0630000065376768, 0.380829879093994), conf.level = 0.95))), class = "data.frame", row.names = "conf.int")

步骤2：提取数值生成tribble代码 #

通过以下代码直接生成符合格式要求的tribble代码：

# 提取所有置信区间的数值
all_vals <- unlist(lapply(df, function(col) col[[1]]))

# 拆分出上下限两行数据
lower_bounds <- all_vals[c(1, 3, 5, 7)]
upper_bounds <- all_vals[c(2, 4, 6, 8)]

# 输出tribble格式代码
cat("tribble(\n  ~A, ~B, ~C, ~D,\n  ", paste(lower_bounds, collapse = ", "), ",\n  ", paste(upper_bounds, collapse = ", "), "\n)", sep = "")

运行后会得到完整的tribble代码：

tribble(
  ~A, ~B, ~C, ~D,
  0.0208625254600925, 0.0165759134400838, 0.102983550772617, 0.0630000065376768,
  0.484137748685967, 0.404602696603372, 0.435400345988533, 0.380829879093994
)

步骤3：直接生成tibble对象 #

如果不需要代码，而是要直接得到tibble数据对象，可使用：

# 提取置信区间并转置为数据框
ci_matrix <- sapply(df, function(col) unlist(col))
result_tibble <- as_tibble(t(ci_matrix))

此时result_tibble就是包含置信区间上下限的tibble，结构与目标格式一致。

内容的提问来源于stack exchange，提问作者D. Shin