Блог

Главная - Вопросы по программированию - легенда не отображается и требуется управлять в определенном порядке из нескольких слоев (ggplot)

легенда не отображается и требуется управлять в определенном порядке из нескольких слоев (ggplot)

#r #ggplot2 #layer #geom-point

Вопрос:

Еще один вопрос о легенде ggplot!

Следующий код — это мой сюжет желания и порядок легенд

 TB.SIBER$Location1 <- factor(TB.SIBER$Location, level = c("Black Forest, NTU","Baoshan, Hsinchu","Zhongshan, Keelung", "Shiding, New Taipei"))
 
TB.SIBER$Group <- factor(TB.SIBER$Group, level = c("Amynthas aspergillum","Amynthas gracilis","Amynthas hupeiensis", "Amynthas incongruus","Amynthas robustus","Amynthas sp.","Pontoscolex corethrurus","Null","soil 0-5 cm","soil 15-20 cm","leaf litter"))

И это мой оригинальный код ggplot.
Я создал разные слои в соответствии с разными видами.

 siber.biplot <- ggplot(TB.SIBER, aes(x=d13C, y=d15N, colour=Group, shape=Group)) 
                
                geom_point(alpha=0.6, size=4,shape= 16, color="firebrick4", show.legend = TRUE,data = subset(TB.SIBER, Group == 'Amynthas aspergillum')) 
                geom_point(alpha=0.6, size=4,shape= 16, colour="green2", show.legend = TRUE,data = subset(TB.SIBER, Group == 'Amynthas gracilis')) 
                geom_point(alpha=0.6, size=4,shape= 16, colour="forestgreen",data = subset(TB.SIBER, Group == 'Amynthas hupeiensis')) 
                geom_point(alpha=0.6, size=4,shape= 16, colour="turquoise3",data = subset(TB.SIBER, Group == 'Amynthas incongruus')) 
                geom_point(alpha=0.75, size=4,shape= 16, colour="blue2",data = subset(TB.SIBER, Group == 'Amynthas robustus')) 
                geom_point(alpha=0.6, size=4,shape= 16, colour="maroon3",data = subset(TB.SIBER, Group == 'Amynthas sp.')) 
                geom_point(alpha=0.5, size=3,shape= 16, colour="yellow2",data = subset(TB.SIBER, Group == 'Pontoscolex corethrurus')) 
                geom_point(alpha=0.6, size=4,shape= 16, colour="darkorchid4",data = subset(TB.SIBER, Group == 'Null')) 
                geom_point(alpha=0.8, size=2.5,shape= 0, colour="sandybrown", data = subset(TB.SIBER, Group == 'soil 0-5 cm')) 
                geom_point(alpha=0.8, size=2.5,shape= 2, colour="red4", data = subset(TB.SIBER, Group == 'soil 15-20 cm')) 
                geom_point(alpha=0.8, size=2.5,shape= 4, colour="orange4", data = subset(TB.SIBER, Group == 'leaf litter')) 
                 
                facet_wrap(.~Location1,ncol=2) 
                labs(colour=NULL, shape=NULL) 
                theme_bw() 
                ylab(expression(delta^(15)-N)) 
                xlab(expression(delta^(13)-C))
siber.biplot

и его график выглядит следующим образом

Но когда я добавляю форму и цвет в geom_point, легенда исчезает.

Как я могу восстановить легенду и управлять порядком легенд, который я хочу?

Пожалуйста, дайте мне несколько идей о том, как это сделать?

Спасибо

Комментарии:

1. Не имея отношения к вашему вопросу, если вы измените свои данные в длинный формат, вы, вероятно, сможете избежать всех этих вызовов geom_point() . Кстати, я бы предположил, что это также облегчило бы создание легенд.

Метки: