问题描述
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)
)