相关疑难解决方法(0)

我看到这些帖子 GGally :: ggpairs绘图没有网格线时绘制相关系数 使用ggpairs来创建这个图

阅读后,我能够实现这个黑客https://github.com/tonytonov/ggally/blob/master/R/gg-plots.r,我的情节看起来像这样

我认为这是一个很好的结果,但我无法改变颜色.

MWE就是这个

library(ggally)

# load the hack
source("ggally_mod.R") 
# I saved https://github.com/tonytonov/ggally/blob/master/R/gg-plots.r as "ggally_mod.R"
assignInNamespace("ggally_cor", ggally_cor, "GGally")

ggpairs(swiss)

现在我想跑

ggpairs(swiss, 
 lower=list(continuous="smooth", wrap=c(colour="blue")),
 diag=list(continuous="bar", wrap=c(colour="blue")))

但颜色保持不变.有没有办法改变颜色,因为params不再工作了？

我的问题是双重的;

我有一个默认的ggpairs图,upper = list(continuous = cor)我想通过相关值为图块着色(就像ggcorr所做的那样).

我有这个:
我想上面的图的相关值是这样的:

library(GGally)

sample_df <- data.frame(replicate(7,sample(0:5000,100)))
colnames(sample_df) <- c("KUM", "MHP", "WEB", "OSH", "JAC", "WSW", "gaugings")

ggpairs(sample_df, lower = list(continuous = "smooth"))  
ggcorr(sample_df, label = TRUE, label_round = 2)

我有一个简单的尝试使用,upper = list(continuous = wrap(ggcorr)但没有任何运气,并且,鉴于这两个功能返回情节调用,我不认为这是正确的道路？

我知道我可以在ggplot中构建它(例如Sandy Muspratt的解决方案)但是鉴于GGally包已经具有我正在寻找的功能,我想我可能会忽略一些东西.

更广泛地说,我想知道我们如何或者如果能够调用相关值？一个更简单的选项可能是为标签而不是瓷砖着色(即这个问题使用颜色而不是尺寸),但我需要一个变量来分配颜色......

能够调用相关值以在其他图中使用会很方便,但我想我可以自己重新计算它们.

谢谢!