ggpairs用のカスタムグループ平均関数

Question

GGally Rパッケージのggpairs（）関数のドキュメントに従って、 "lower"/"upper"引数への入力としてカスタム関数を指定することができます。連続離散変数の組み合わせについては、可能であれば、色の美学を使用して別のカテゴリ変数によって階層化されたカテゴリ変数のカテゴリ（好ましくは点を使用して棒を使用すること）の連続変数の手段を単純に表示したいと思います。

私は次のスレッドでいくつかの情報が見つかりました：

https://github.com/ggobi/ggally/issues/218

しかし私ggpairsの知識（とggplot2）は（スレッドでテンプレートから、このようなカスタム関数を作成することができるようにはあまりにも表面的ですまた、変数名 "Species"はテンプレートにハードコードされているように見えます。可能であれば、カスタム関数にハードコーディングされた情報を持たないことをお勧めします。

誰かがテンプレートやソリューションのスケッチで私を助けてくれると大変感謝しています。次の例を使用して（ここで、「custom_function」上記の機能を交換する必要があります）：私は私の目的のために十分に働くようでカスタム関数を作っ@aosmithのコメントに基づいて

dat <- reshape::tips 
pm <- ggpairs(dat, 
       mapping = aes(color = sex, alpha = 0.3), 
       columns = c("total_bill", "smoker", "time", "tip"), 
       showStrips = T, 
       lower = list(combo = custom_function)) 
print(pm) 

Answer 1

、幅広く、これまでそれをテストし、多分それはとにかく便利ですしていない。

library(GGally) 
library(ggplot2) 
library(ggstance) 

gmean_point <- function(data, mapping, ...) { 

    x <- eval(mapping$x, data) 
    y <- eval(mapping$y, data) 

    if(is.numeric(y)) { 
    p <- ggplot(data) + 
     geom_blank(mapping) + 
     stat_summary(mapping, 
        geom = 'point', fun.y = mean, 
        position = position_dodge(width = 0.2)) 
    } else { 
    p <- ggplot(data) + 
     geom_blank(mapping) + 
     stat_summaryh(mapping, 
        geom = 'point', fun.x = mean, 
        position = position_dodgev(height = 0.2)) 
    } 

    p 

} 

pm <- ggpairs(reshape::tips, 
       mapping = aes(color = sex, alpha = 0.3), 
       columns = c("total_bill", "smoker", "time", "tip"), 
       showStrips = T, 
       lower = list(combo = gmean_point), 
       upper = list(combo = 'box')) 
print(pm) 

Plot produced by code above