Overplotting for black and white graphics

bw_default.R

ggplot(Vy, aes(F2, F1, shape = Vowel))+
  geom_point()+
  theme_bw()+
  scale_x_continuous(name = "F2", trans = revlog_trans())+
  scale_y_reverse(name = "F1")+
  stat_ellipse(level = 0.95)+
  opts(legend.position = "none")+
  annotate(geom="text", x=2900, y = 460, label = "iyC", size = 5)+
  annotate(geom="text", x=2400, y = 750, label = "eyC", size = 5)+
  annotate(geom="text", x=1850, y = 970, label = "ay", size = 5)

bw_shape1.R

ggplot(Vy, aes(F2, F1, color = Vowel))+
  geom_point()+
  scale_shape_manual(values = c(5,17,1), breaks = c("iy", "ey","ay"))+
  theme_bw()+
  scale_x_continuous(trans = revlog_trans())+
  scale_y_reverse()+
  stat_ellipse(level = 0.95)+
  opts(legend.position = "none")+
  annotate(geom="text", x=2900, y = 460, label = "iyC", size = 5)+
  annotate(geom="text", x=2400, y = 750, label = "eyC", size = 5)+
  annotate(geom="text", x=1850, y = 970, label = "ay", size = 5)

bw_shape2.R

ggplot(Vy, aes(F2, F1, color = Vowel))+
  geom_point(fill = "white")+
  scale_shape_manual(values = c(23,17,21), breaks = c("iy", "ey","ay"))+
  theme_bw()+
  scale_x_continuous(trans = revlog_trans())+
  scale_y_reverse()+
  stat_ellipse(level = 0.95)+
  opts(legend.position = "none")+
  annotate(geom="text", x=2900, y = 460, label = "iyC", size = 5)+
  annotate(geom="text", x=2400, y = 750, label = "eyC", size = 5)+
  annotate(geom="text", x=1850, y = 970, label = "ay", size = 5)

bw_shape3.R

ggplot(Vy, aes(F2, F1, color = Vowel))+
  geom_point(fill = "grey80")+
  scale_shape_manual(values = c(23,17,21), breaks = c("iy", "ey","ay"))+
  theme_bw()+
  scale_x_continuous(trans = revlog_trans())+
  scale_y_reverse()+
  stat_ellipse(level = 0.95)+
  opts(legend.position = "none")+
  annotate(geom="text", x=2900, y = 460, label = "iyC", size = 5)+
  annotate(geom="text", x=2400, y = 750, label = "eyC", size = 5)+
  annotate(geom="text", x=1850, y = 970, label = "ay", size = 5)

color.R

ggplot(Vy, aes(F2, F1, color = Vowel))+
  geom_point()+
  theme_bw()+
  scale_x_continuous(trans = revlog_trans())+
  scale_y_reverse()+
  stat_ellipse(level = 0.95)+
  opts(legend.position = "none")+
  annotate(geom="text", x=2900, y = 460, label = "iyC", size = 5)+
  annotate(geom="text", x=2400, y = 750, label = "eyC", size = 5)+
  annotate(geom="text", x=1850, y = 970, label = "ay", size = 5)