我想在同一列中的每个变量名旁边添加类似（N = {N}）的内容，是否有默认选项？
library(gtsummary) library(dplyr) mtcars %>% select(mpg, disp, vs) %>% tbl_summary() %>% add_n()
我在套餐的官方网站上寻找解决方案，但没有找到任何东西（英语不是我的母语：/）
9fkzdhlc1#
我不知道在gtsummary中是否存在这样的方法，但是你可以做一个小函数来为你做这件事：
gtsummary
library(gtsummary) library(dplyr) add_n_name <- function(.data, ...){ nv <- apply(.data, 2, function(x)sum(!is.na(x))) newnames <- paste(colnames(.data), " (N=", nv, ")", sep="") setNames(.data, newnames) }
函数add_n_name()获取数据，计算每个变量的非缺失观测数，通过将(N={N})粘贴到变量名来创建新名称，然后将数据集的名称设置为包含N的这些新名称。选择要使用的变量后，请将此函数添加到管道中：
add_n_name()
(N={N})
mtcars %>% select(mpg, disp, vs) %>% add_n_name() %>% tbl_summary()
创建于2023年2月23日，使用reprex v2.0.2
1条答案
按热度按时间9fkzdhlc1#
我不知道在
gtsummary中是否存在这样的方法，但是你可以做一个小函数来为你做这件事：函数
add_n_name()获取数据，计算每个变量的非缺失观测数，通过将(N={N})粘贴到变量名来创建新名称，然后将数据集的名称设置为包含N的这些新名称。选择要使用的变量后，请将此函数添加到管道中：创建于2023年2月23日，使用reprex v2.0.2