主页 / coding / 问题 / 78373413
Accepted
tassones
Asked: 2024-04-23 23:10:41 +0800 CST

使用 ggcorrplot 相关矩阵上的上标和下标标签

  • 772

我正在尝试自定义使用该包制作的相关矩阵上的标签ggcorrplot。但是，我无法使上标或下标格式正常工作。如何在不使用 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

创建于 2024-04-23，使用reprex v2.1.0

2 个回答

  1. Best Answer

    ggtext 使用格式的选项markdown：

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

    创建于 2024-04-23，使用reprex v2.1.0

    • 3

  2. 如果你想坚持下去，你可以通过像这样使用plotmath来达到你想要的结果：scale_x/y_discretescales::label_parse

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

    其缺点之一plotmath是它不支持新线路。但你可以使用以下方法伪造一个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

相关问题