主页 / coding / 问题 / 79465996
Accepted
robertspierre
Asked: 2025-02-25 17:22:57 +0800 CST

datasummary_correlation 中的前导零

  • 772

我不明白为什么datasummary_correlation要删除前导零。

以下是一个例子：

library(correlation)
library(modelsummary)
library(tidyverse)

fun <- function(x) {
  out <- x |>
    correlation() |>
    summary(redundant = TRUE) |>
    format(digits=2)  |>
    as.matrix()
  row.names(out) <- out[, 1]
  out <- out[, 2:ncol(out)]
  lt <- upper.tri(out)
  out[lt] <- ""
  diag(out) <- rep("1.00", nrow(out))
  return(out)
}

datasummary_correlation(
  mtcars %>% select(mpg, cyl, disp),
  method = fun)

这导致：

在此处输入图片描述

例如，对于 mpg 和 cyl 之间的相关性，我想要显示-0.85***，而不是-.85***。

fun似乎返回了格式正确的表格，因此其中的某些内容datasummary_correlation一定是删除了前导零。

1 个回答

  1. Best Answer

    这vignette描述了使用datasummary_correlation_format具有选项的leading_zero。仅获取 HTML 表输出并不那么简单，因为datasummary_correlation(dat, method = cor_fun)会再次删除前导零。因此我选择使用 kableExtra 进行 HTML 转换。

    代码

    library(correlation)
library(modelsummary)
library(tidyverse)

fun <- function(x) {
  out <- x |>
    correlation() |>
    summary(redundant = TRUE) |>
    format(digits=2)  |>
    as.matrix()
  row.names(out) <- out[, 1]
  out <- out[, 2:ncol(out)]
  
  datasummary_correlation_format(
    out,
    fmt = 2,
    leading_zero = TRUE,
    upper_triangle = "",
    diagonal = "1.00")
}

library(kableExtra)

kable(fun(mtcars %>% select(mpg, cyl, disp)), format = "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))

    给予

    出去

    • 2

相关问题