如何将图例添加到GGally :: ggpairs图的一列中？

Question

我已经从数据的一列中按组创建了一个GGally图，但是没有图例来标识组名。 如何在图例中添加图例？

我的代码：

ggpairs(data[ ,c(2,5)],  mapping = ggplot2::aes(color = group), 
        upper = list(continuous = wrap("cor", size = 3)), 
        lower = list(combo = wrap(ggally_facethist, bins = 10)), 
        diag = list(continuous = wrap("densityDiag"), 
                    mapping = ggplot2::aes(fill = group, alpha = 0.1)),
        title="Data by Group") +
        theme(plot.title = element_text(hjust = 0.5)) +
        theme(text = element_text(size = 10),
        axis.text.x = element_text(angle = 90, hjust = 1))

我的输出： 理想情况下，如果需要，我希望能够移动图例，但是右侧的图例就可以了。 我也想知道是否可以创建一个单独的图例并将其保存到对象中。

Answer 1

尝试这个：

gg <-  ggpairs(data[ ,c(2,5)],  mapping = ggplot2::aes(color = group), 
    upper = list(continuous = wrap("cor", size = 3)), 
    lower = list(combo = wrap(ggally_facethist, bins = 10)), 
    diag = list(continuous = wrap("densityDiag"), 
                mapping = ggplot2::aes(fill = group, alpha = 0.1)),
    title="Data by Group") +
    theme(plot.title = element_text(hjust = 0.5)) +
    theme(text = element_text(size = 10),
    axis.text.x = element_text(angle = 90, hjust = 1))

然后加

gg + theme(legend.position = "bottom")

或您想要的任何位置

可以通过以下指示在此处添加外部图例 ： 如何向ggpairs（）添加外部图例？