gistfile1.txt

DataExplorer::plot_missing(day)
DataExplorer::plot_missing(hour)

g1<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`Cumm egg prod (HH)`))+
  geom_point(aes(y=`Cumm egg produced (HD)`), col="red")+
  theme_bw()
g2<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`Egg weight (g)`))+
  geom_point(aes(y=`Egg mass per day (g)`), col="red")+
  theme_bw()
g3<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`Feed intake per day\r\n(g)`))+
  theme_bw()
g4<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`Body weight (g)`), col="red")+
  theme_bw()
g5<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`FCR`), col="red")+
  theme_bw()
g6<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`mort-%`), col="red")+
  theme_bw()
g7<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`cumm mort-%`), col="red")+
  theme_bw()
g8<-ggplot(Norm, aes(x=`Age in Weeks`))+
  geom_point(aes(y=`%\r\nLay`), col="red")+
  theme_bw()
grid.arrange(g1,g2,g3,g4,
             g5,g6,g7,g8,ncol=2)