ggplot2 | 如何把高亮的点画到最顶层？

思路：就是先用ggplot2正常画一遍。然后把要高亮的点拿出来再画一层。

library(ggplot2)

# 比如：高亮显示 cut 为 Ideal 的点的 克拉*价格
df1=diamonds
df1$good=factor(df1$cut=="Ideal", levels=c(T, F) )

g1=ggplot(df1, aes(carat, price, color=good))+
  geom_point(size=2)+
  theme_bw()+
  scale_color_manual(values=c("red", "grey"))+ggtitle("Fig1");
g1

# 把要高亮的点拿出来，再画一层
df2=df1[which(df1$good==T), ]
g2=ggplot()+
  geom_point(data=df1, mapping=aes(carat, price), size=2, color="grey")+
  geom_point(data=df2, mapping=aes(carat, price), size=2, color="red")+
  theme_bw()+ggtitle("Fig2")
library(patchwork)
g1+g2

怎么加上图例？

g3=g1+geom_point(data=df2, mapping=aes(carat, price), size=2, color="red")+ggtitle("Fig3"); 
g3

== end ==