library(ggplot2)
repro2<-read.csv("Repro2.csv")
fidalgo<-subset(repro2, Site=="Fidalgo")
ggplot(data=fidalgo, aes(x=Date, y=Brooders, group=Pop, colour=Pop))+geom_line()+geom_point()+ylim(c(0,15))+scale_colour_manual(values=c("#3366CC","#CC66CC","#FF9900"))+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

manch<-subset(repro2, Site == "Manchester")
ggplot(data=manch, aes(x=Date, y=Brooders, group=Pop, colour=Pop))+geom_line()+geom_point()+ylim(c(0,15))+scale_colour_manual(values=c("#3366CC","#CC66CC","#FF9900"))+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

oysbay<-subset(repro2, Site=="Oyster Bay")
ggplot(data=oysbay, aes(x=Date, y=Brooders, group=Pop, colour=Pop))+geom_line()+geom_point()+ylim(c(0,15))+scale_colour_manual(values=c("#3366CC","#CC66CC","#FF9900"))+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

ggplot(repro2, aes(x=Date, y=Brooders, group=Pop, colour=Pop))+geom_line()+geom_point()+facet_wrap(~Site, ncol=1)+scale_colour_manual(values=c("#3366CC","#CC66CC","#FF9900"))+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

ggplot(repro2, aes(x=Date, y=Brooders, group=Site, colour=Site))+geom_line()+geom_point()+facet_wrap(~Pop, ncol=1)+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

repro3<-read.csv('reproperc.csv')
ggplot(repro3, aes(x=Date, y=Percent, group=Site, colour=Site))+geom_line()+geom_point()+facet_wrap(~Pop, ncol=1)+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))

ggplot(repro3, aes(x=Date, y=Percent, group=Pop, colour=Pop))+geom_line()+geom_point()+facet_wrap(~Site, ncol=1)+theme(axis.text.x=element_text(angle=90, size=10, vjust=0.5))+scale_colour_manual(values=c("#3366CC","#CC66CC","#FF9900"))
