Как добавить легенду в один столбец GGally :: ggpairs сюжет? - PullRequest
Новая
       89

Как добавить легенду в один столбец GGally :: ggpairs сюжет?

0 голосов
/ 03 марта 2019

Я создал график 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))

Мой вывод: enter image description here В идеале я хотел бы иметь возможность двигатьсялегенда вокруг, если необходимо, но легенда с правой стороны будет в порядке.Мне также интересно, возможно ли создать отдельную легенду и сохранить ее на объекте.

1 Ответ

0 голосов
/ 15 июня 2019

Попробуйте это: 

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 ()?

...