R 如何制作显示p值且轴部分倾斜的相关矩阵

我有一个由26种不同鸟类组成的数据集，我在cran R中对其进行了Spearman关联。我想将我的结果显示为带有颜色的关联矩阵。我的问题是，轴需要有鸟类的丹麦名字在正常文本后，他们的拉丁名在斜体。此外，我需要矩阵来显示哪些相关性是显著的

我曾尝试使用ggcorrplot，在这里我可以将非显著相关性设置为空白，但我不知道如何更改轴上的名称

我还尝试使用cor和ggplot，在这里我可以更改轴上的名称（我刚刚在脚本中显示了其中一个轴的代码，因为它占用了很多空间），但我不知道如何显示哪些相关性不显著或显著

在下面的脚本中，我使代码适合在R中可用的数据集mtcars

相关图

库（ggcorrplot）
数据（“mtcars”）
相关性如果只是更改名称，也许可以使用
主题
来执行此操作？或者只是将+
缩放y_离散
添加到
ggcorrplot
？@NelsonGon非常感谢，我不知道我可以将+scale_y_离散添加到另一个绘图。这就解决了问题。如果你有解决问题的办法，你可以把它作为答案贴出来！
library(ggcorrplot)
data("mtcars")

correlation <- cor(mtcars, method = "spearman")
p.mat <- cor_pmat(mtcars)
ggcorrplot(corr = correlation, type = "lower", insig = "blank", p.mat = p.mat)

library(reshape2)
library(ggplot2)
library(Hmisc)

cormat <- cor(mtcars, method = "spearman")
get_lower_tri <- function(cormat) {
  cormat[upper.tri(cormat)] <- NA 
  return(cormat)
} 

low_tri <- get_lower_tri(cormat) 
melted_cormat <- melt(low_tri, na.rm = TRUE)

ggplot(data = melted_cormat, aes(x = Var1, y = Var2, fill = value)) +
  geom_tile(color = "white") + scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0, limit = c(-1,1), space = "Lab") + scale_y_discrete(labels = c(expression('mpg'~italic("mpg")), expression('cyl'~italic("cyl")), expression('disp'~italic("disp")), expression('hp'~italic("hp")), expression('drat'~italic("drat")), expression('wt'~italic("wt")), expression('qsec'~italic("qsec")), expression('vs'~italic("vs")), expression('am'~italic("am")), expression('gear'~italic("gear")), expression('carb'~italic("carb"))))