R 从 CI 输出制作表格

发布于05月14日

我正在try 用我的CI输出制作一个表格，我没有在R中制作表格的经验，非常感谢您的帮助.

CI <- data %>% group_by(group) %>% summarize(CI_z(column1, ci = 0.95))

我使用CI_z函数来获取置信区间信息.我的数据分为4组.我的输出如下所示:

group     Measurements   values
   <chr>     <chr>           <dbl>
 1 group1  sample_size     11   
 2 group1  Mean            39.3 
 3 group1  sd               6.35
 4 group1  Margin_Error     3.75
 5 group1  CI.lower.limit  35.5 
 6 group1  CI.Upper.limit  43.0 
 7 group2 sample_size      8   
 8 group2 Mean            35.2 
 9 group2 sd               4.79
10 group2 Margin_Error     3.32

等等，直到第4组完成

我想从这个输出中提取数据，以以下格式生成一个表:

Group	N	Mean	Lower Limit	Upper limit
Group1	x	x	x	x
Group2	x	x	x	x
Group3	x	x	x	x
Group4	x	x	x	x

我知道如何使用:

推荐答案

可以执行以下操作，使用dplyr和tidyr，并假设数据为df

library(dplyr)
library(tidyr)

df %>% 
  filter(!Measurements %in% c("sd", "Margin_Error")) %>% 
  pivot_wider(names_from=Measurements, values_from=values) %>% 
  rename_with(~c("Group", "N", "Mean", "Lower Limit", "Upper Limit"))

输出:

  Group      N  Mean `Lower Limit` `Upper Limit`
  <chr>  <dbl> <dbl>         <dbl>         <dbl>
1 group1    11  39.3          35.5          43  
2 group2     8  35.2          25.8          47.1

输入:

df = structure(list(group = c("group1", "group1", "group1", "group1", 
"group1", "group1", "group2", "group2", "group2", "group2", "group2", 
"group2"), Measurements = c("sample_size", "Mean", "sd", "Margin_Error", 
"CI.lower.limit", "CI.Upper.limit", "sample_size", "Mean", "sd", 
"Margin_Error", "CI.lower.limit", "CI.Upper.limit"), values = c(11, 
39.3, 6.35, 3.75, 35.5, 43, 8, 35.2, 4.79, 3.32, 25.8, 47.1)), row.names = c(NA, 
-12L), class = "data.frame")