gistfile1.txt

ggplot(arc, aes(x=rochefant, y=length, colour=(as.factor(generation1)))) + 
  geom_point(alpha=0.4) +
  facet_wrap(~`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=length, colour=(as.factor(generation1)))) + 
  geom_point(alpha=0.4) +
  facet_wrap(~weightclass) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=length, colour=weightclasshalv)) + 
  geom_point(alpha=0.4) +
  facet_wrap(~description+`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=length, colour=as.factor(locality))) + 
  geom_point(alpha=0.4) +
  facet_wrap(~region) +
  theme_bw() + theme(legend.position = "none")
ggplot(arc, aes(x=rochefant, y=length)) + 
  geom_point(alpha=0.4) +
  facet_wrap(~customer) +
  theme_bw() + theme(legend.position = "none")
ggplot(arc, aes(x=as.factor(slaughtermonth),y=rochefant, colour=as.factor(slaughtermonth))) + 
  geom_boxplot(aes(fill=as.factor(slaughtermonth)), alpha=0.2) + 
  facet_wrap(~slaughteryear) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, colour=as.factor(weightclass))) + 
  geom_boxplot(aes(fill=as.factor(weightclass)), alpha=0.2) + 
  theme_bw() 
ggplot(arc, aes(x=rochefant, colour=as.factor(weightclasshalv))) + 
  geom_boxplot(aes(fill=as.factor(weightclasshalv)), alpha=0.2) + 
  theme_bw() 
ggplot(arc, aes(x=rochefant, colour=as.factor(weightclasshalv))) + 
  geom_boxplot(aes(fill=as.factor(weightclasshalv)), alpha=0.2) +
  facet_wrap(~`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=`nir-ala`)) + 
  geom_point(alpha=0.2) +
  facet_wrap(~`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=log(wt.s))) + 
  geom_point(alpha=0.2) +
  facet_wrap(~`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=log(wt.s),colour=as.factor(region))) + 
  geom_point(alpha=0.2) +
  facet_wrap(~`generation(a/s)`) +
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=c.factor)) + 
  geom_point(alpha=0.2)+
  facet_wrap(~`generation(a/s)`) + 
  theme_bw() 
ggplot(arc, aes(x=rochefant, y=length, 
                colour=log(daysinsea))) + 
  geom_point(alpha=0.2)+
  facet_wrap(~weightclass) + 
  theme_bw() 
ggplot(arc, aes(x=weig.slaug, y=length, 
                colour=weig.whole)) + 
  geom_point(alpha=0.2)+
  facet_wrap(~`generation(a/s)`) + 
  theme_bw()
ggplot(arc, aes(x=weig.slaug, y=gon.index, 
                colour=length)) + 
  geom_point(alpha=0.2)+
  facet_wrap(~`generation(a/s)`) + 
  theme_bw()
ggplot(arc, aes(x=weig.slaug, y=arc$`epa+dhasom%avfett`, 
                colour=length)) + 
  geom_point(alpha=0.2)+
  facet_wrap(~`generation(a/s)`) + 
  theme_bw()
ggplot(arc, aes(x=rochefant, y=nirtotpig,
                colour=nirastax.)) + 
  geom_point(alpha=0.2)+
  facet_wrap(~weightclass) + 
  theme_bw()
ggplot(arc_company, aes(x=rochef, y=length)) + 
  geom_point(alpha=0.2)+
  theme_bw()
ggplot(arc_company, aes(x=rochef, y=log(Weight))) + 
  geom_point(alpha=0.2)+
  theme_bw()

ggplot(arc, aes(x=rochefant, y=log(daysinsea), 
                colour=as.factor(`generation(a/s)`))) + 
  geom_point(alpha=0.2)+ 
  facet_wrap(~region)+
  theme_bw()