与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

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

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

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

希望对您有所帮助。

Answer 2

使用四舍五入后的预定义相关性来调用文本，而不是使用令人讨厌的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"
)