使用GGally对图进行循环相关

Question

为了提高具有多个变量的配对图的可读性，我想对ggpairs()函数提供的相关系数进行舍入。

在下面的示例中，我希望显示的系数不是0.807，而是0.8。

library(GGally)

data(cars)

ggpairs(cars,
  upper = list(continuous = wrap(ggally_cor, alignPercent = 0.8, size = 10)))

​

​

Answer 1

您可以在2位r系数的ggpairs()调用中添加digits=2。

更新后的ggpairs()会是这样的；

ggpairs(cars,
        upper = list(continuous = wrap(ggally_cor, alignPercent = 0.8, digits=2, size = 10)))

​

​

我希望这会对你有所帮助。

Answer 2

不是调用ggally cor，而是使用已四舍五入的预定义相关性调用文本。这样，文本就是四舍五入的系数。

更多调整可以在这里找到：link

ct <- cor.test(cars$speed,cars$dist)
r <- ct$estimate
rt <- format(r, digits=2)  #can have 1 instead of 2
 # just demonstrating that .807 becomes .81

ggpairs(cars,
        upper = list(continuous = function(data, mapping, ...) {
          ggally_text(label = as.character(rt), mapping = mapping)}), 
        lower = list(continuous = 'smooth'), 
        axisLabels = "internal"
)