我一直在尝试向我的 ggplot 添加图例，但惨败。我确实遇到了与手动添加图例相关的其他问题，例如1,2但无法将答案应用到我的 ggplot 上。我尝试了该功能scale_colour_manual但传说并没有出现。
任何帮助将非常感激。
p <- ggplot() +
# corine plot
geom_point(data=t, aes(x=FPR, y=TPR),colour="black", size =3,pch=1) +
geom_line(data=t, aes(x=FPR, y=TPR),
colour="lightblue", size=1) +
#globecover plot
geom_point(data=tgl, aes(x=FPR, y=TPR),colour="black",size=3,pch=1) +
geom_line(data=tgl, aes(x=FPR, y=TPR),
colour="red", size=1)+
#grump plot
geom_point(data=tgr, aes(x=FPR, y=TPR),colour="black",size=3, pch=1) +
geom_line(data=tgr, aes(x=FPR, y=TPR),
colour="pink", size=1)
p <- p+geom_abline(intercept=0, slope=1)
p<- p+ labs(list(title = "FPR vs TPR", x = "False Positive Rate", y = "True Positive Rate"))
p <-p+theme_bw() +
theme(axis.title.x = element_text(size = 15, vjust=-.2)) +
theme(axis.title.y = element_text(size = 15, vjust=0.3))
p+ scale_colour_manual(name="legend", value =c("corine"= "lightblue", "globcover"="red", "grump"="pink"))
是的，我的数据t,tgr,tgl看起来像这样：
ID Countries FPR TPR
1 Bristol 0.08716076 0.6894999
2 Brussel 0.18621056 0.8065292
3 Budapest 0.07085285 0.8234692
4 Edinburgh 0.05507682 0.6944172
5 Gozo 0.11037915 0.6360882
等等。
我已经编写了一个首先合并数据的解决方案，因为它更有效。你也不需要设置aes对于每个几何体（如果它们都相同）。
合并数据：
#add group variable (called data because t is a funtio)
tt$group <- "corine"
#make up the other dataframes
set.seed(1)
tgl <- data.frame(ID=1:5, Countries=LETTERS[1:5],FPR=runif(5,0,0.12),TPR=runif(5,0.5,0.8))
tgl$group <- "globcover"
tgr <- data.frame(ID=1:5, Countries=LETTERS[1:5],FPR=runif(5,0,0.12),TPR=runif(5,0.5,0.8))
tgr$group <- "grump"
#combine
all_data <- rbind(tt,tgl,tgr)
然后绘制组合数据
p2 <- ggplot(all_data, aes(x=FPR, y=TPR, group=group)) +
geom_point(color="black") + #no need for x and y, as unchanged
geom_line(aes(color=group)) +
scale_colour_manual(values =c("corine"= "lightblue", "globcover"="red", "grump"="pink"))
p2
