如何提高 Tableone 输出

Question

我正在使用 tableone 创建汇总表。我的一些数据是分类的，一些是连续的，根据变量需要平均值/标准差或中位数/IQR。虽然我得到的输出在技术上是正确的，但它看起来相当难看，并且不能很好地打印到 rmarkdown 中。我之前使用过 table1，它看起来更好，但没有给我所需的平均值/SD 与中位数/IQR。

我的输入： full_baseline_variables 是一个字符向量，其中包含我需要的所有列名称。 班级是结果中的一个变量，它定义了我的每个小组。 结果是一个数据框 full_categorical_baseline 是一个字符向量，其中包含分类变量的子集。

     tab1 <- CreateTableOne(vars = full_baseline_variables, strata = "Class", data = outcomes, factorVars = full_categorical_baseline)

如果我只打印上面的内容，它会将所有内容打印为平均值/标准差。我需要一些变量作为中位数/IQR，因此我创建了一个额外的字符向量以放入打印函数中。

     table1 <- print(tab1, nonnormal = full_medians_baseline)

我得到的输出是正确的，但很难阅读。有谁对如何获取 tab1 输出并制作比打印功能更好的表格有建议吗？

Answer 1

这是一个旧线程，我回答以防万一有人在这里结束谷歌搜索

我发现

kable()

包中的

knitr

功能非常有用

由于您没有提供可重现的示例，我发布了一个

dummy_data <- data.frame(
      "sex" = rep(c("male", "female"), 50), 
      "age" = rnorm(100, mean = 50, sd = 15),
      "stratifyer" = sample(c("group A", "group B"), size = 100, replace = TRUE)
  )

现在您创建了一张表（很棒的包......）

table1 <- tableone::CreateTableOne(vars = c("sex", "age"), strata = "stratifyer", data = dummy_data)
print(table1)

现在你使用 kable 让它更清晰（如果你使用 R Markdonw html 它将是一个非常好的 html 表格，如果你想将其复制粘贴到另一个程序你可以设置“|”作为分隔符）

knitr::kable(print(table1))