如何合并行数不同的多个R统计对象为统一表格?
合并R统计对象为完整表格
以下是将你提供的freq、wf、prop、CI、CV对象合并为3行完整表格的R代码:
library(survey) # 处理freq对象:转为数据框并设置行名 freq_df <- data.frame(freq = freq, row.names = c("0", "1", "Total")) # 处理wf对象:提取total值和标准误,整理为数据框 wf_df <- data.frame( total = as.vector(wf), SE = sqrt(diag(attr(wf, "var"))), row.names = c("0", "1", "Total") ) # 处理prop对象:提取均值、标准误和DEff,添加Total行 prop_df <- data.frame( mean = as.vector(prop), SE_prop = sqrt(diag(attr(prop, "var"))), DEff = diag(attr(prop, "deff")), row.names = c("0", "1") ) prop_df <- rbind(prop_df, data.frame(mean = NA, SE_prop = NA, DEff = NA, row.names = "Total")) # 处理CI对象:转为数据框并添加Total行 CI_df <- as.data.frame(CI) CI_df <- rbind(CI_df, data.frame(`2.5 %` = NA, `97.5 %` = NA, row.names = "Total")) rownames(CI_df) <- c("0", "1", "Total") # 处理CV对象:转为数据框并添加Total行 CV_df <- data.frame(CV = CV, row.names = c("0", "1")) CV_df <- rbind(CV_df, data.frame(CV = NA, row.names = "Total")) # 合并所有数据框并调整列顺序 final_table <- cbind(freq_df, wf_df, prop_df, CI_df, CV_df) final_table <- final_table[, c("freq", "total", "SE", "mean", "SE_prop", "DEff", "2.5 %", "97.5 %", "CV")] # 打印结果(空值显示为空白) print(final_table, na.print = "")
最终合并后的表格:
| freq | total | SE | mean | SE_prop | DEff | 2.5 % | 97.5 % | CV | |
|---|---|---|---|---|---|---|---|---|---|
| 0 | 11027 | 4327145 | 98763 | 0.8621886 | 0.0087937 | 8.0181 | 0.8449534 | 0.8794239 | 0.01019923 |
| 1 | 1264 | 691647 | 48336 | 0.1378114 | 0.0087937 | 8.0181 | 0.1205761 | 0.1550466 | 0.06380940 |
| Total | 12291 | 5018792 | 108969 |
内容的提问来源于stack exchange,提问作者datadigger
相关产品推荐
相关产品推荐

