如何修改R代码将分区域比例CI表合并为总比例CI表

以下是各类内容的Markdown格式用法：

标题 #

使用井号 # 表示标题级别，井号数量越多，标题级别越低：

• # 一级标题 → # 一级标题
• ## 二级标题 → ## 二级标题
• ### 三级标题 → ### 三级标题
  （最多支持6级标题）

列表项 #

以短横线 - 开头创建无序列表：

• 基础列表项1
• 基础列表项2
  • 嵌套列表项（缩进2个空格或1个制表符）

文本强调 #

用星号 * 包裹文本实现强调效果：

• 斜体：*需要强调的文本* → 需要强调的文本
• 粗体：**需要突出的文本** → 需要突出的文本

代码/命令 #

用反引号 ` 包裹单行代码或命令：

• 示例：ggplot(data, aes(x = region, y = prop)) + geom_bar(stat = "identity")

多行代码块使用三个反引号包裹，还可指定语言实现语法高亮：

# 按糖尿病状态汇总的示例代码
library(dplyr)
diabetes_data %>%
  group_by(diabetes_status) %>%
  summarize(
    比例 = mean(diabetes_status == "阳性"),
    CI下限 = binom.test(sum(diabetes_status == "阳性"), n())$conf.int[1],
    CI上限 = binom.test(sum(diabetes_status == "阳性"), n())$conf.int[2],
    总样本量 = n()
  )

引用文本 #

用大于号 > 开头创建引用块：

引用内容示例：按糖尿病阳性/阴性汇总的表格需包含总比例、置信区间及总样本量。

链接 #

格式为 [链接显示文本](目标URL)：

• 示例：[dplyr 官方文档](https://dplyr.tidyverse.org/) → dplyr 官方文档

图片 #

格式为 [图片替代文本](图片URL)：

• 示例：[现有区域分组表格](https://example.com/region-table.png) → 现有区域分组表格

内容的提问来源于stack exchange，提问作者sam.cold