sizeclassvbrood.R

require(TeachingDemos)

## Loading required package: TeachingDemos

require(ggplot2)

## Loading required package: ggplot2

require(scales)

## Loading required package: scales

require(plyr)

## Loading required package: plyr

BRvP<-read.csv('BRvP.csv')
View(BRvP)
numbrood<-BRvP[,c("SizeClass","Pop","NoBrood")]

ggplot()+
  geom_bar(data=BRvP, aes(x=SizeClass, y=NoIndSize, group=Pop,colour=Pop,fill=Pop),
           binwidth=10, stat="identity",position=position_dodge(),alpha=0.3)+
  geom_bar(data=numbrood, aes(x=SizeClass, y=NoBrood, group=Pop,fill=Pop),
           binwidth=10, stat="identity",position=position_dodge())+
  scale_colour_manual(values=c("blue","purple","orange"))+
  scale_fill_manual(values=c("blue","purple","orange"))