ggplot()

ggplot(mydata100, aes(pretest, posttest, shape=gender, linetype=gender))+geom_point(size=5)+geom_smooth(method="lm")

# Create your theme
my_white <-theme_bw()+theme(plot.title = element_text(size = rel(3)),
       panel.grid.major.x = element_blank(),
       panel.grid.minor.x = element_blank(),
       panel.grid.major.y = element_blank(),
       panel.grid.minor.y = element_blank())
 
# Plot!
ggplot(mydata100, aes(pretest, posttest, shape=gender,linetype=gender))+geom_point(size=2)+facet_grid(workshop~gender)+geom_smooth(method="lm")+labs(title="Combination Plot", x="Before Workshop", y="After Workshop")+my_white