Question

根据GGally R包中ggpairs（）函数的文档，可以指定自定义函数作为＆＃34; lower＆＃34; /＆＃34; upper＆＃34;的输入。论点。对于连续离散变量组合，我想简单地在分类变量的类别中显示连续变量的均值（最好使用点，而不是条形），如果可能的话，使用颜色美学进一步按照另一个分类变量进行分层。

我在以下主题中找到了一些信息：

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

然而，我对ggpairs（和ggplot2）的了解太过肤浅，无法从线程中的模板生成这样的自定义函数（同样，变量名称＆＃34; Species＆＃34;似乎是硬编码的进入模板，我宁愿在自定义函数中没有任何硬编码信息，如果可能的话。）

如果有人可以帮我解决模板或解决方案草图，我将非常感激。使用以下示例（其中＆＃34; custom_function＆＃34;需要替换为上述功能）：

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

根据@aosmith的评论，我制作了一个自定义功能，似乎对我的目的来说效果不错，到目前为止还没有进行过广泛的测试，但也许它有用了：

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

自定义组意味着ggpairs的功能

1 个答案: