Решение, которое я использовал в прошлом, это ... это огромный взлом, но работает.
dat <- data.frame(x=c('a', 'b', 'c'), y = runif(300), z = c('d', 'e', 'e'))
dummy <- dat
dummy$z <- factor(dummy$z)
dummy <- dummy[1,]
dummy[,2]<-NaN
ggplot() +
geom_boxplot(data=dat,aes(x, y, fill = z, colour = z), alpha = 0.2,legend=FALSE) +
geom_density(data=dummy,aes(x, fill = z, colour = z), alpha = 0.2)
Обычно я использую его, когда создаю график geom_text, но хочу, чтобы легенда отображалась в виде точек или блоков. Но это работает и для этого экземпляра.
В случае, если Хэдли обращает внимание на эту тему, я обнаружил, что хочу использовать параметр plot = T / F, который работает как вариант легенды в этой ситуации.