gistfile1.txt

ggplot(dataset, aes(x=Tijdstip, y=Flow, colour=as.factor(ID))) + 
  geom_line() +  
  theme_bw()
ggplot(dataset, aes(x=as.numeric(ElapsedTime), y=Flow,colour=as.factor(ID))) + 
  geom_line() +  
  theme_bw()+ theme(legend.position = "none")
ggplot(dataset, aes(x=Tijdstip, y=Flow, colour=as.factor(ID))) + 
  geom_line() + 
  facet_wrap(~ID, scales="free")+
  theme_bw() + theme(legend.position = "none")
ggplot(dataset, aes(x=Tijdstip, y=VO2cdi, colour=as.factor(ID))) + 
  geom_line() +  
  theme_bw()+ theme(legend.position = "none")
ggplot(dataset, aes(x=Tijdstip, y=VO2cdi, colour=as.factor(ID))) + 
  geom_line() + 
  facet_wrap(~ID, scales="free")+
  theme_bw()+ theme(legend.position = "none")
ggplot(dataset, aes(x=Meting, y=VO2cdi, group=as.factor(ID))) + 
  geom_line(alpha=0.1) +  
  geom_boxplot(aes(fill="red"), alpha=0.5, varwidth=TRUE)+
  theme_bw()+ theme(legend.position = "none")
dataset%>%
  group_by(ID)%>% 
  summarise_by_time(Tijdstip,.by="minute",flowmean=mean(Flow,na.rm=TRUE))%>%
  plot_time_series(Tijdstip, flowmean,.facet_ncol = 5,.facet_scales = "free_x",.interactive=FALSE)
dataset%>%
  group_by(ID)%>% 
  summarise_by_time(Tijdstip,.by="minute",VO2cdimean=mean(VO2cdi,na.rm=TRUE))%>%
  plot_time_series(Tijdstip, VO2cdimean,.facet_ncol = 5,.facet_scales = "free_x",.interactive=FALSE)