Início / coding / Perguntas / 79465996
Accepted
robertspierre
Asked: 2025-02-25 17:22:57 +0800 CST

Zeros à esquerda em datasummary_correlation

  • 772

Não entendo por que datasummary_correlation está removendo zeros à esquerda.

Aqui está um exemplo:

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)

O que leva a:

insira a descrição da imagem aqui

Por exemplo, para a correlação entre mpg e cyl, quero exibir -0.85***, não -.85***.

funparece retornar a tabela formatada corretamente, então algo datasummary_correlationdeve estar removendo os zeros à esquerda.

1 respostas

  1. Best Answer

    Isso vignettedescreve o uso de datasummary_correlation_formatwhich tem uma opção leading_zero. Só obter a saída da tabela HTML não foi tão direto, porque datasummary_correlation(dat, method = cor_fun)exclui os zeros à esquerda novamente. Então, optei pelo kableExtra para fazer a conversão HTML.

    Código

    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"))

    dando

    fora

    • 2

relate perguntas