Как добавить легенду в один столбец 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()?