Как я могу установить имена столбцов рядом с полями в 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()
  )