r - ggpairsのセリフカスタマイズ方法【GGally】

Question

私は次のプロットを持っています:

このコードで生成:

library("GGally")
data(iris)
ggpairs(iris[, 1:4], lower=list(continuous="smooth", params=c(colour="blue")),
  diag=list(continuous="bar", params=c(colour="blue")), 
  upper=list(params=list(corSize=6)), axisLabels='show')

私の質問は次のとおりです。

1. 相関線を に変更するにはどうすればよいですかred。現在は黒です。
2. そして、相関線は散布図の下に埋もれています。上に載せたい。どうやってやるの？

Answer 1

GGally のバージョンを確認しpackageVersion("GGally")、GGally をバージョン 1.0.1 にアップグレードします。

library("GGally")
library("ggplot2")
data(iris)

lowerFn <- function(data, mapping, method = "lm", ...) {
  p <- ggplot(data = data, mapping = mapping) +
    geom_point(colour = "blue") +
    geom_smooth(method = method, color = "red", ...)
  p
}

ggpairs(
  iris[, 1:4], lower = list(continuous = wrap(lowerFn, method = "lm")),
  diag = list(continuous = wrap("barDiag", colour = "blue")),
  upper = list(continuous = wrap("cor", size = 10))
)