在R和reporttools中：我可以抑制tableContinuous生成的“所有”类别的分组统计数据吗？

2023年10月31日 288次阅读

我正在使用R中reporttools包的tableContinuous函数.

一切都按预期工作,并使用docs中的一些示例：

library("reporttools")
data(CO2)
vars <- CO2[, 4:5]
group <- CO2[, "Treatment"]
weights <- c(rep(1, 60), rep(0, 10), rep(2, 14))

tableContinuous(vars = vars, weights = weights, subset = 
                  c(rep(TRUE, 57), rep(FALSE, 100 - 57)), group = group, prec = 3, print.pval = 
                  "kruskal", cap = "Table of continuous variables.", lab = "tab: descr stat")

我按预期得到了一张桌子：

是否可以从输出中删除所有行？

最佳答案 不,表格中没有这样的选项.只有在每个变量只有一个级别的情况下才会省略所有行,即在tableContinuous的源代码中查看if(n.levels == 1)….

但是,使用正则表达式可以解决此问题.我不是它的专家,所以可能有更好的方法.

library(reporttools)
data(CO2)
vars <- CO2[, 4:5]
group <- CO2[, "Treatment"]
weights <- c(rep(1, 60), rep(0, 10), rep(2, 14))

result <- tableContinuous(vars = vars, weights = weights, subset = 
                            c(rep(TRUE, 57), rep(FALSE, 100 - 57)), group = group, prec = 3, print.pval = 
                            "kruskal", cap = "Table of continuous variables.", lab = "tab: descr stat")

完全删除所有行：

cat(gsub("\\\\hline\n[^\n]+& all &[^\n]+\n", "", result))

保持p值：

greg <- gregexpr("p (=|<) [^\n]+", result)
regmatches(result, greg) <- list(gsub("(?<=&)[-.\\w ]+", " ", 
                                     regmatches(result, greg)[[1]], perl = TRUE))
cat(result)
点赞