ggplot2中如何不显示矩阵对角线数据？

Question

我想绘制相关矩阵图。像这样

因此，我生成了一个矩阵数据并在 R 中绘制。 但是，我得到了一张奇怪的照片。

这是我的代码。

aa1=data.frame(eada=c(1.1,5,0,0,0,0),
              goke=c(2.2,5,0,0,0,0),
              adet=c(1.0,5,0,0,0,0),
              feag=c(2.3,5,0,0,0,0),
              edep=c(2.5,5,0,0,0,0),
              jate=c(1.5,7,0,0,0,0),
              pafe=c(2.6,8,0,0,0,0),
              bink=c(3.3,6,0,0,0,0),
              culp=c(2.1,6,0,0,0,0),
              soit=c(1.3,6,0,0,0,0),
              yosp=c(2.1,5,0,0,0,0),
              wiso=c(2.3,8,0,0,0,0))

as.data.frame(lapply(aa1,as.numeric))
cormat1=round(cor(aa1),2)

# Get lower triangle of the correlation matrix
get_lower_tri<-function(cormat1){
    cormat1[upper.tri(cormat1)] <- NA
    return(cormat1)}

lower_tri <- get_lower_tri(cormat1)
t(lower_tri)

melted_cormat1 <- melt(lower_tri, na.rm = TRUE)

ggplot(melted_cormat1, aes(Var2, Var1, fill = value))+
 geom_tile(color = "white")+
  scale_x_discrete(position = "top") +
 scale_fill_gradient2(low = "#8134af", high = "#C00000", mid = "white") +
  theme_bw()

我要解决的问题：

1. 图形的位置在左下角；
2. 图中不显示矩阵对角线数据。
3. 如果我想要其他颜色（例如黑色）的背景，在绘制相关矩阵图之前是否需要先绘制图片？

Answer 1

要按照您提出的顺序回答您的问题：

1. 您需要颠倒 y 轴变量的顺序以使下角包含您的图块。您可以通过将 Var2 设为一个因子，然后在因子 Var1 时使用其反向级别来实现此目的：

melted_cormat1$Var2 <- factor(melted_cormat1$Var2)
melted_cormat1$Var1 <- factor(melted_cormat1$Var1, rev(levels(melted_cormat1$Var2)))

2. 要删除矩阵对角线，请删除 中的所有行>melted_cormat1 其中 Var1 == Var2

melted_cormat2 <- melted_cormat1[which(melted_cormat1$Var1 != melted_cormat1$Var2),]

3. 要使用黑色面板背景进行绘图，请使用 theme(panel.background = element_rect(fill = "black"))：

ggplot(melted_cormat2, aes(Var2, Var1, fill = value)) +
  geom_tile(color = "white")+
  scale_x_discrete(position = "top") +
  scale_fill_gradient2(low = "#8134af", high = "#C00000", mid = "white") +
  theme_bw() +
  theme(panel.background = element_rect(fill = "black"),
        panel.grid = element_blank())

结果是：