ifelse条件カラーの凡例プロパティを変更する

Question

私は、以下のコードを使用して散布図を作成しました。誰かが凡例のタイトルとラベルをカスタマイズする方法を知っていましたか？

x <- ggplot(full_data) 
x + geom_point(aes(y=r_morning_noon_no_min,x=as.integer(rownames(full_data)),col=ifelse(prediction==1,'green','red'))) + 
    geom_hline(yintercept = mean_rm,color="red") + 
    geom_hline(yintercept = mean_rm2,color="green") + 
    ggtitle("Muster von skalierten Haushalten nach Pensionierung separiert") + 
    labs(x="Haushalt ID") 

Answer 1

scale_color_manual(name="xxx",values=c("red","green"),labels=c("xxx","xxx"))