ggplot(DATA, aes(x=F, y=P))+geom_point(colour = "royalblue4", size = 1.1, shape =3)+
scale_y_continuous(breaks = c(0.01, 0.05, 0.1, 0.2, 0.4, 0.6, 0.8, 1),label = c("0.01", "0.05", "0.1", "0.2", "0.4", "0.6", "0.8", "1"))+
geom_hline(colour = "red", yintercept = c(0.1,0.05,0.01), linetype="dashed",size = 0.6)+
theme_bw()