Wednesday, October 15, 2014

10 15 2014 Number of Brooders vs Number of Size Class Code

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"))

plot of chunk unnamed-chunk-1

No comments:

Post a Comment