关于COX回归多因素调整后如何快速整理输出表格

summary(res.cox)   # 查看con回归模型结果
table1<-ShowRegTable(res.cox, exp = TRUE, digits = 2, pDigits = 3,
                     printToggle = TRUE, quote = FALSE, ciFun = confint)
table2<-tidy(res.cox)
table3<-cbind(table1,table2)


# 新建HR、lower和upper列，用于存储括号内的数字
table3$CI <- table3$"exp(coef) [confint]"
table3$HR <- NA
table3$lower <- NA
table3$upper <- NA

# 使用正则表达式匹配括号内的数字，并将其存储到对应列中
matches <- regmatches(table3$CI, gregexpr("\\d+\\.?\\d*", table3$CI))
for (i in seq_along(table3$CI)) {
  if (length(matches[[i]]) == 3) {
    table3$HR[i] <- as.numeric(matches[[i]][1])
    table3$lower[i] <- as.numeric(matches[[i]][2])
    table3$upper[i] <- as.numeric(matches[[i]][3])
  }
}
table3$CI <- gsub("\\[", "(", table3$CI)
table3$CI <- gsub("\\]", ")", table3$CI)
table3 <- table3[, c("CI","HR" ,"lower","upper")]

write.csv(table3,"文件名.csv")