在 huxtable 中使用 hugrex 函数格式化数字

Question

huxtable 包中的函数 huxreg 自动识别数字并将其格式化为 number_format = "%.3f" 选项中预定义的格式。我想在我的报告中报告置信区间并使用 CI95: 前缀。不幸的是，前缀的数字部分是自动格式化的，前缀看起来像 CI95.000.

让我们考虑以下示例：

library(huxtable)
data <- data.frame(y = rnorm(10), x=rnorm(10))
fit <- lm(y ~ x, data)

huxreg(fit,
     ci_level = 0.95,
     error_pos = "below",
     error_format = "CI95: ({conf.low}, {conf.high})" )

有什么方法可以按预期获得 CI95？我试过数字到字符的转换，但没有成功。谢谢！

Answer 1

虽然不是最佳选择，但您可以将 , number_format = c("%.3f", "%.3g", "%.3f", "%.3g") 添加到 huxreg 调用中，以专门影响 table 的 CI95 行的格式（或将输出保存为对象然后修改定义这些行格式的属性元素，例如做 attr(res, "number_format")[[13]] <- "%.3g"，等等）。除此之外，我只能想到以某种方式修改底层 glue 转换器，该转换器转换整个字符串并使所有数字元素具有相同的格式。

Answer 2

另一个技巧是将包含函数的列表传递给 number_format:

    library(huxtable)
    library(dplyr)
    data <- data.frame(y = rnorm(10), x=rnorm(10))
    fit <- lm(y ~ x, data)
    
    leave_95_alone <- function (n) ifelse(n == 95, as.integer(n), sprintf("%.3f", n))
    
    huxreg(fit,
             ci_level = 0.95,
             error_pos = "below",
             error_format = "CI95: ({conf.low}, {conf.high})" 
           ) %>% 
           set_number_format(c(3,5), 2, 
             list(leave_95_alone)
           )

在 huxtable 中使用 hugrex 函数格式化数字

Formatting numbers with hugrex function in huxtable

r

string-formatting

huxtable