gistfile1.txt

ggplot(dataset, aes(x=Tijdstip, y=PO2art, colour=as.factor(PO2art_bin))) + 
  geom_point() +  
  facet_wrap(~ID, scales="free")+
  theme_bw()+ theme(legend.position = "bottom")
ggplot(dataset, aes(x=Tijdstip, y=DO2i_methode1, colour=as.factor(DO2i_methode1_gen_bin))) + 
  geom_point() +  
  facet_wrap(~ID, scales="free")+
  theme_bw()+ theme(legend.position = "bottom")
ggplot(dataset, aes(x=Tijdstip, y=DO2i_methode1,colour=as.factor(DO2i_methode1_cath_bin))) + 
  geom_point() +  
  facet_wrap(~ID, scales="free")+
  theme_bw()+ theme(legend.position = "bottom")
ggplot(dataset, aes(x=Tijdstip, y=DO2i_methode1,
                    shape=as.factor(DO2i_methode1_gen_bin),
                    colour=as.factor(DO2i_methode1_cath_bin))) + 
  geom_point() +  
  facet_wrap(~ID, scales="free")+
  theme_bw()+ theme(legend.position = "bottom")
ggplot(dataset, aes(x=Tijdstip, 
                    y=RQ_methode1,
                    colour=as.factor(RQ_methode1_bin))) + 
  geom_point() +  
  facet_wrap(~ID, scales="free") +
  theme_bw() + theme(legend.position = "bottom")