r - ggpairsを使用してGGallyでレス推定を行う方法は?

Question

GGallyパッケージを少し試してみました。特に ggpairs 関数。ただし、スムーズにプロットするときに lm の代わりに loess を使用する方法がわかりません。何か案は？これが私のコードです：

require(GGally)
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1],200),]
ggpairs(diamonds.samp[,c(1,5)], 
        lower = list(continuous = "smooth"),
        params = c(method = "loess"),
        axisLabels = "show")

ありがとう！

PSはplotmatrix関数と比較して、ggpairsははるかに遅いです...その結果、ほとんどの場合、ggplot2のplotmatrixを使用します。

Answer 1

多くの場合、使用する独自の関数を作成するのが最善です。この回答から同様の質問に適応。

library(GGally)
diamonds_sample = diamonds[sample(1:dim(diamonds)[1],200),]

# Function to return points and geom_smooth
# allow for the method to be changed
custom_function = function(data, mapping, method = "loess", ...){
      p = ggplot(data = data, mapping = mapping) + 
      geom_point() + 
      geom_smooth(method=method, ...)

      p
    }

# test it  
ggpairs(diamonds_sample,
    lower = list(continuous = custom_function)
)

これを生成します：