标题在R corrplot中太不居中，太高

Question

我正在使用corrplot来可视化相关性，但是标题在图的上方相当高，我想让它更接近。我该怎么做呢？

示例数据帧：

"VADeaths" <-
  structure(c(11.7, 18.1, 26.9, 41, 66, 8.7, 11.7, 20.3, 30.9, 54.3, 15.4, 
  24.3, 37, 54.6, 71.1, 8.4, 13.6, 19.3, 35.1, 50), .Dim = c(5, 4),
  .Dimnames = list(c("50-54", "55-59", "60-64", "65-69", "70-74"),
  c("Rural Male", "Rural Female", "Urban Male", "Urban Female")))

计算相关性并可视化

library(corrplot)
cors = cor(VADeaths)

corrplot(cors,tl.col="black",title="Example Plot",mar=c(0,0,5,0),tl.offset = 1)

通过将页边距扩展到绘图上方的5，我至少可以让标题出现在绘图中，但无法弄清楚如何使标题更接近情节并集中在绘图上，而不是标签占用的空间上。

上面的代码如下所示：

​

我想要更多这样的东西(忽略字体)

​

我的实际绘图的标签要小得多，所以标签和标题之间有大约3-4厘米的差距。我没有发现在mar中增加值解决了这个问题。

Answer 1

您可以使用mtext来添加标题

corrplot(cors,tl.col="black", mar=c(0,0,5,0), tl.offset = 1)
mtext("Example Plot", at=2.5, line=-0.5, cex=2)

at控制水平位置。line控制高度。该大小的cex。使用?mtext查看更多选项

Answer 2

您可以使用ggplot2绘制相关图。

首先将相关数据转换为数据帧。

library(reshape2)
cors <- cor(VADeaths)
cor_data <- reshape2::melt(
  cors, 
  varnames = paste0("demographic", 1:2), 
  value.name = "correlation"
)

然后画出图。

library(ggplot2)
ggplot(cor_data, aes(demographic1, demographic2, fill = correlation)) + 
  geom_tile() + 
  ggtitle("Correlation across demographics for VA deaths")

​

​