0

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？我尝试了数字到字符的转换，但没有成功。谢谢！

4

2 回答 2

1

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

于 2020-12-31T19:44:48.673 回答
0

另一个技巧是将包含函数的列表传递给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)
           )
于 2021-02-24T12:27:17.223 回答