R 如何将countpct和binomCI合并到同一个汇总统计中，以便在tableby函数中使用？

我正在使用

阿森纳

软件包中的

tableby

函数创建汇总表。对于我需要生成的大多数统计数据，这个软件包提供的格式与我要求的格式完全相同，只有一个例外。我需要进入同一个牢房，就像这样：

n（%）[95%CI的百分比]

现在，我使用的是

countpct

函数，它给出了“n（%）”和

binomCI

函数，它给出了95%CI的比例，但它使最后一个表中的行数增加了一倍，所以这并不理想

我怎么能让所有东西都在同一条线上

我试着看看是否可以从原始函数中创建另一个函数，但我真的不理解它们的语法

谢谢你的帮助

---

编辑：下面是一个可复制的示例

可以找到原始函数的代码

这就是我现在拥有的：

data<-NULL
data$Visit2<-c(rep("Responder",121),rep("Not Responder",29),rep("Responder",4),rep("Not Responder",47))
data$Group<-c(rep("Tx",150),rep("No Tx",51))
data<-as.data.frame(data)


library(arsenal)
my_controls <- tableby.control(test = F,total = F,  cat.stats = c("countpct" ,"binomCI"), conf.level = 0.95)

summary(tableby(Group ~ Visit2,
                data = data, 
                control = my_controls),
                digits=2, digits.p=3, digits.pct=1)

# Results :
|                                |   No Tx (N=51)    |    Tx (N=150)     |
|:-------------------------------|:-----------------:|:-----------------:|
|**Visit2**                      |                   |                   |
|                  Not Responder |    47 (92.2%)     |    29 (19.3%)     |
|                  Responder     |     4 (7.8%)      |    121 (80.7%)    |
|                  Not Responder | 0.92 (0.81, 0.98) | 0.19 (0.13, 0.27) |
|                  Responder     | 0.08 (0.02, 0.19) | 0.81 (0.73, 0.87) |







And this is what I want :

|                 |        No Tx (N=51)       |        Tx (N=150)        |
|:----------------|:-------------------------:|:------------------------:|
|**Visit2**                                   |                          |                 
|   Not Responder |  47 (92.2%) [81.1, 97.8]  |  29 (19.3%) [13.3, 26.6] |   
|   Responder     |   4 (7.8%) [2.2, 18.9]    | 121 (80.7%) [73.4, 86.7] |
|                  

---

data如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易为您提供帮助。感谢您的回复，我添加了一个示例。如果您包含一个简单的示例输入和所需的输出，可用于测试和验证可能的解决方案，则更容易帮助您。感谢您的回复，我添加了一个示例。