Повторяющиеся легенды в наложенных графиках плотности с использованием ggplot2

Question

Я пытаюсь создать график плотности с двумя наложенными распределениями, используя ggplot2 . Мои данные выглядят так:

diag_elements <- data.frame(x = c(diag(Am.dent), diag(Am.flint)), 
                            group=rep(c("Dent", "Flint"), c(length(diag(Am.dent)), length(diag(Am.flint)))))

И мой вызов ggplot:

ggplot(diag_elements) + 
  geom_density(aes(x=x, colour=group, fill=group), alpha=0.5) + 
  labs(x = "Diagonal elements of the matrix", y = "Density", fill = "Heterotic Group") + 
  theme(legend.position = c(0.85, .75))

Однако вместо простого переименования легенды с более полным имя, указанное в fill, генерирует секунду legend:

Есть ли у кого-нибудь какие-либо предложения для получения этого же графика, но без неправильно отформатированная легенда?

Спасибо!

Answer 1

Другая опция - это направляющие, которые позволяют указать c удаление определенных элементов. Вы просто добавляете в свой ggplot +guides(color=FALSE)