在 R 表 1 package 中使用自定義 function

Question

我正在嘗試使用 table1 package 在 R 中構建數據匯總表。 有誰知道是否可以指定要呈現的自定義函數而不是stats.default函數？ 我想使用來自 EnvStats package 的 function geoSD 和 geoMean。 有任何想法嗎？

Answer 1

您可以傳入自己的自定義渲染函數。 function 應該生成一個命名字符向量，其中第一個元素的名稱將被變量的名稱替換。 如果您希望避免這種行為，請將第一個元素設為空字符串。

library(table1)

render.continuous.custom <- function(x, ...) {
  attr(x, "label") <- NULL # strip labels because geo.+() will choke if present
  c(
    "", 
    "geoMean" = format(round(EnvStats::geoMean(x), 3), nsmall = 3), 
    "geoSD"   = format(round(EnvStats::geoSD(x),   3), nsmall = 3)
  )
}

table1(~ mpg | factor(cyl), mtcars, render.continuous = render.continuous.custom)