如何在 ggplot2 中的框附近設置列名？

Question

我正在嘗試創建這樣的熱圖

我的數據集在這里： DATASET

ggplot(data=mxdf)+
  geom_tile(aes(x=mxdf$Var1,y=mxdf$Var2,fill=mxdf$value))+
  scale_fill_viridis(option = "B",discrete = T,end=1)+
  labs(title = "CORRELATIONS",y="",x="")+
  theme(legend.position = "none",axis.text.x = element_text(angle = 45, vjust = 1, 
                                                            size = 9, hjust = 1))

我使用這個代碼，我得到了這張地圖

沒關系，但 X 軸列名稱太遠無法繪制。 如何設置 x 軸列名稱，如第一個圖形？

Answer 1

我認為您需要添加annotate 。 但是，要修復注釋位置，您還需要在 x 軸上使用擴展。

 ggplot(data= mxdf)+
  geom_tile(aes(x= mxdf$Var2,y= mxdf$Var1,fill= mxdf$value))+
  scale_fill_viridis(option = "B",discrete = T,end=1)+
  labs(title = "CORRELATIONS",y="",x="")+
  theme(legend.position = "none",axis.text.x = element_text(angle = 45, vjust = 1, 
                                                            size = 9, hjust = 1)) +
  scale_x_discrete(expand = c(0.5, 0.5)) +
  annotate("text", x = (1:length(levels(mxdf$Var2)))-1, y = 1:length(levels(mxdf$Var2)), label = levels(mxdf$Var2)) +
  theme(
    axis.text.y = element_blank()
  )