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

如何解决在 huxtable 中使用 Hugrex 函数格式化数字

huxreg 包中的函数 huxtable 自动识别数字并将其格式化为 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？我尝试过数字到字符的转换，但没有成功。谢谢！

解决方法

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

,

另一个技巧是将包含函数的列表传递给 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)
           )