# Utilisé pour simplifier les figures
fig <- theme_bw() + theme(panel.grid.minor=element_blank(), panel.grid.major=element_blank(), 
  panel.background=element_blank()) + 
  theme(strip.background=element_blank(), strip.text.y = element_text()) + 
  theme(legend.background=element_blank()) + 
  theme(legend.key=element_blank()) + theme(panel.border = element_rect(colour="black", fill=NA))

# Faites les trois graphiques suivants pour explorer les données
plot <- ggplot(aes(Fish_Length,Trophic_Pos),data=data)

# Graphique 1 - Toutes les données
plot + geom_point() + xlab("Length (mm)") + ylab("Trophic Position") + labs(title="All Data") + fig

# Graphique 2 - Par espèce
plot + geom_point() + facet_wrap(~ Fish_Species) + xlab("Length (mm)") + ylab("Trophic Position") + 
   labs(title="By Species") + fig

# Graphique 3 – Par lac 
plot + geom_point() + facet_wrap(~ Lake) + xlab("Length (mm)") + ylab("Trophic Position") + 
   labs(title="By Lake") + fig