我正在使用gtsummary号套餐.为了获得交叉的‘desg’和‘group’变量的描述性结果,我使用了tbl_continuous函数.

我得到了"中位数"和"IQR"作为结果衡量标准,但我想要的是meansd,正如我想要的.

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(gtsummary)

# Sample data
data <- data.frame(
  desg = c('a', 'b', 'c', 'a', 'b', 'c'),
  group = c('before', 'before', 'before', 'after', 'after', 'after'),
  values = c(10, 15, 12, 18, 22, 20)
)

data %>%
  select(desg, group, values) %>%
  tbl_continuous(variable = values, by = group) %>%
  modify_spanning_header(all_stat_cols() ~ "**Treatment Assignment**")
Characteristic  Treatment Assignment
after, N = 31   before, N = 31
desg        
    a   18.0 (18.0, 18.0)   10.0 (10.0, 10.0)
    b   22.0 (22.0, 22.0)   15.0 (15.0, 15.0)
    c   20.0 (20.0, 20.0)   12.0 (12.0, 12.0)
1 values: Median (IQR)
Created on 2023-10-07 with reprex v2.0.2

推荐答案

您需要提供适当的statistic参数.docs个州:

statistic:指定要 for each 变量显示的汇总统计信息类型的公式列表.默认值为everything() ~ {median} ({p25}, {p75})

我不得不说,提供这份名单的格式对我来说并不完全清楚,但幸运的是,tbl_summary() docs人比较明确:

默认为list(all_continuous() ~ "{median} ({p25}, {p75})", all_categorical() ~ "{n} ({p}%)")

在我们的 case 中,这意味着:

data %>%
    select(desg, group, values) %>%
    tbl_continuous(
        variable = values, by = group,
        statistic = list(
            everything() ~ "{mean} ({sd})"
        )
    ) %>%
    modify_spanning_header(all_stat_cols() ~ "**Treatment Assignment**")
# Characteristic    Treatment Assignment
# after, N = 31 before, N = 31
# desg
#     a 18.0 (NA)   10.0 (NA)
#     b 22.0 (NA)   15.0 (NA)
#     c 20.0 (NA)   12.0 (NA)
# 1 values: Mean (SD)

您的样本数据每组只有一个观察值,这就是为什么这里的sd()NA.

R相关问答推荐

确定邻国

仅在ggplot的每个方面绘制最丰富的物种

pickerInput用于显示一条或多条geom_hline,这些线在图中具有不同 colored颜色

如何根据组大小应用条件过滤?

gt()从gt为相同内容的单元格 colored颜色 不同?

计算具有奇数日期的运行金额

R s iml包如何处理语法上无效的因子级别?'

R函数,用于生成伪随机二进制序列,其中同一数字在一行中不出现超过两次

迭代到DataFrame列并获得成对的值列表(col1->;col2、col2->;col3、col3->;col4等)的正确方法.

条形图顶部与其错误条形图不对齐

提高圣彼得堡模拟的速度

使用R将简单的JSON解析为嵌套框架

远离理论值的伽马密度曲线下面积的近似

根据r中另一个文本列中给定的范围对各列求和

变长向量的矢量化和

在散点图中使用geom_point放置线图例

按组跨多列创建伪变量

如何预测原始数据集并将值添加到原始数据集中

Conditional documentr::R中数据帧的summarize()

如何从嵌套数据中自动创建命名对象?在R中