如何创建函数以显示table1包中的第25和第75百分位（IQR）

对于数据帧中的连续变量，我想使用R中的table1包来获得一个表，该表显示每个连续变量的输出中值（第25-75百分位）

使用Benjamin Rich在表1小插曲中描述的方法：

my.render.cont <- function(x) {
    with(stats.apply.rounding(stats.default(x), digits=2), c("",
        "Mean (SD)"=sprintf("%s (&plusmn; %s)", MEAN, SD)))
}

my.render.cont尝试以下操作：

library(table1)
library(MASS)

labels <- list(variables=list(age="Age (years)",thickness="Thickness (mm)"),groups=list("", "", ""))
strata <- split(Melanoma, Melanoma$status)

my.render.cont <- function(x) {
  with(stats.apply.rounding(stats.default(x, ), digits = 2),
       c("",
         "median (Q1-Q3)" =
           sprintf(paste("%s (",Q1,"- %s)"), MEDIAN,Q3)))
}

table1(strata, labels, render.continuous=my.render.cont)

库（表1）
图书馆（弥撒）
标签工作完美，谢谢Elia！我把你的建议改为下面的，以完全符合我的需要my.render.cont
library(table1)
library(MASS)

labels <- list(variables=list(age="Age (years)",thickness="Thickness (mm)"),groups=list("", "", ""))
strata <- split(Melanoma, Melanoma$status)

my.render.cont <- function(x) {
  with(stats.apply.rounding(stats.default(x, ), digits = 2),
       c("",
         "median (Q1-Q3)" =
           sprintf(paste("%s (",Q1,"- %s)"), MEDIAN,Q3)))
}

table1(strata, labels, render.continuous=my.render.cont)