将轴标签添加到ggcorrplot吗？

Question

如何将轴标签添加到ggcorrplot？我有一张问卷的两次单独尝试之间的相关性图。 X轴表示第一次尝试，Y轴表示第二次尝试。我想标记轴以表明这就是这里表示的内容。

我的代码如下：

corrQData <- round(cor(Attempt1, Attempt2), digits = 1)

ggcorrplot(corrQData, 
           outline.color = "white",
           ggtheme = theme_bw(),
           colors = c("#F8696B", "#FFEB84", "#63BE7B"),
           legend.title = "Correlation",
           lab = TRUE,
           lab_size = 3,
           tl.cex = 8,
           tl.srt = 0,
           title = "Correlation Between Questionnaire Attempts") +
  theme(plot.title = element_text(hjust = 0.5, size=10), legend.title = element_text(size = 10))

我的情节看起来像这样：

我尝试在ggcorrplot代码的末尾添加+ scale_x_discreet(name = "Attempt 1")，但是它什么也没做。

Answer 1

您必须覆盖ggcorrplot的默认行为，即不显示轴标签。通过添加带有ggplot2::labs()的标签（scale_x_discrete(name = ...)也可以正常工作）并更改图的主题来做到这一点

library(ggcorrplot)
corrdata <- round(cor(mtcars), 1)

ggcorrplot(corrdata) + 
  ggplot2::labs(x = 'X label', y = 'Y label') +
  ggplot2::theme(
    axis.title.x = element_text(angle = 0, color = 'grey20'),
    axis.title.y = element_text(angle = 90, color = 'grey20')
  )