WeightIt / Bal.tab 和 CreateTableOne 的问题

Question

我正在使用“Weightit”包进行倾向得分加权，我想要一个像这样的表 1“加权前后”：

这是我的代码：

data("lalonde", package = "cobalt")
library(cobalt)
library(WeightIt)

W.out <- weightit(treat ~ age + educ + race + married + nodegree + re74 + re75,
                  data = lalonde, estimand = "ATT", method = "ps")
W.out

bal.tab(W.out, stats = c("m", "v"), thresholds = c(m = .05), disp=c("means", "sds"))

然而，对于 bal.tab，我得到了所有变量的均值和标准差，而对于分类变量（是/否），我希望得到上图中表格中的频率（%）（例如，在“男性”行中或“种族”）。 有没有办法解决这个问题？也许还有其他包裹。

编辑：我想在这个例子中使用 CreateTableOne 创建类似的表https://stats.stackexchange.com/questions/589486/discrepancy-in-calculating-smd-between-createtableone-and-cobalt- r-包 但是我不知道如何用 WeightIt 包编写代码。