Início / coding / Perguntas / 78373413
Accepted
tassones
Asked: 2024-04-23 23:10:41 +0800 CST

Rótulos sobrescritos e subscritos na matriz de correlação usando ggcorrplot

  • 772

Estou tentando customizar os rótulos em uma matriz de correlação feita usando o ggcorrplotpacote. No entanto, não consigo fazer com que a formatação sobrescrito ou subscrito funcione. Como posso exibir os rótulos corretamente sem usar caracteres Unicode?

library(tidyverse)
library(ggcorrplot)

# Example Data
M <- cor(mtcars)[1:3,1:3]

# Attempt 1: Not formatted correctly
colnames(M) <- c("Temperature\n (^o C)", "PO[4]^2", "Oxygen\n (mg L^-1)")
rownames(M) <- c("Temperature\n (^o C)", "PO[4]^2", "Oxygen\n (mg L^-1)")

ggcorrplot(M,
           type = "lower",
           lab = TRUE,
           ggtheme = theme_bw())



# Attempt 2: Produces error message
ggcorrplot(M,
           type = "lower",
           lab = TRUE,
           scale_x_discrete(labels = c("mpg" = expression(Temperature~(degree*C)),
                                       "cyl" = expression(PO[4]^2),
                                       "disp" = expression(Oxygen~(mg~L^-1)))),
           scale_y_discrete(labels = c("mpg" = expression(Temperature~(degree*C)),
                                       "cyl" = expression(PO[4]^2),
                                       "disp" = expression(Oxygen~(mg~L^-1)))),
           ggtheme = theme_bw())
#> Error in match.arg(method): 'arg' must be NULL or a character vector

Criado em 23/04/2024 com reprex v2.1.0

2 respostas

  1. Best Answer

    Uma opção com ggtext usando markdownformatação:

    library(tidyverse)
library(ggcorrplot)
library(ggtext)

M <- cor(mtcars)[1:3,1:3]

colnames(M) <- c("Temperature<br> (<sup>o</sup> C)", "PO<sub>4</sub><sup>2</sup>", "Oxygen<br> (mg L<sup>-1</sup>)")
rownames(M) <- c("Temperature<br> (<sup>o</sup> C)", "PO<sub>4</sub><sup>2</sup>", "Oxygen<br> (mg L<sup>-1</sup>)")

ggcorrplot(M,
           type = "lower",
           lab = TRUE,
           ggtheme = theme_bw()) +
  theme(axis.text = element_markdown())

    Criado em 23/04/2024 com reprex v2.1.0

    • 3

  2. E caso queira continuar, plotmathvocê pode alcançar o resultado desejado scale_x/y_discreteusando scales::label_parseo seguinte:

    library(ggcorrplot)
#> Loading required package: ggplot2
library(scales)

# Example Data
M <- cor(mtcars)[1:3, 1:3]

# Attempt 1: Not formatted correctly
colnames(M) <- rownames(M) <- c("Temperature~(degree*C)", "PO[4]^2", "Oxygen~(mg~L^-1)")

ggcorrplot(M,
  type = "lower",
  lab = TRUE,
  ggtheme = theme_bw()
) +
  scale_x_discrete(labels = scales::label_parse()) +
  scale_y_discrete(labels = scales::label_parse())

    Uma das desvantagens plotmathé que ele não suporta novas linhas. Mas você pode falsificar um usando atop():

    colnames(M) <- rownames(M) <- c(
  "atop(Temperature, (degree*C))", "PO[4]^2",
  "atop(Oxygen, (mg~L^-1))"
)

ggcorrplot(M,
  type = "lower",
  lab = TRUE,
  ggtheme = theme_bw()
) +
  scale_x_discrete(labels = scales::label_parse()) +
  scale_y_discrete(labels = scales::label_parse())

    • 0

relate perguntas