Добавление легенды к ggplot

Question

Этот вопрос является продолжением на этот пост: previous post

У меня есть 12 переменных, M1, M2, ..., M12, для которых я вычислить некоторые статистические данные x и y.

df = data.frame(model = factor(paste("M", 1:28, sep = ""), levels=paste("M", 1:28, sep = "")), a = runif(28, 1, 1.05), b = runif(28, 1, 1.05)) 

levels = seq(0.8, 1.2, 0.05) 

Вот сюжет:

ggplot(data=df) + 
    geom_polygon(aes(x=model, y=a, group=1), color = "red", fill = NA) + 
    geom_polygon(aes(x=model, y=b, group=1), color = "blue", fill = NA) + 
    coord_polar() + 
    scale_y_continuous(limits=range(levels), breaks=levels, labels=levels) + 
    theme(axis.text.y = element_blank(), axis.ticks = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank()) 

Я хотел бы добавить легенду к сюжету, где у меня есть две линии, одна красная с надписью «а», и один синий с надписью «Ъ» ,

Я попытался с помощью scale_colour_manual следующим образом:

scale_colour_manual(values = c("red", "blue"), labels = c("a", "b")) 

, но это не похоже на работу. Любая помощь будет оценена по достоинству. Благодаря!

Answer 1

library(reshape2) 
df1 <- melt(df, id="model") 

levels = seq(0.8, 1.2, 0.05) 

ggplot(data=df1) + 
    geom_polygon(aes(x=model, y=value, group=variable, colour=variable), fill = NA) + 
    scale_colour_manual(values=c("a"="blue", "b"="red")) + 
    coord_polar() + 
    scale_y_continuous(limits=range(levels), breaks=levels, labels=levels) + 
    theme(axis.text.y = element_blank(), axis.ticks = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank()) 

Answer 2

Вы можете удалить фон из легенды, добавив:

+ theme(legend.background=element_rect(colour=NA) 

Не забудьте добавить последнюю закрывающую скобку.