gistfile1.txt

ggplot() + 
  geom_line(data=total,  mapping=aes(x=time, y=Severity)) + 
  geom_point(data=total, mapping=aes(x=time, y=Severity)) + 
  facet_wrap(~Patientnr, scales="free_x") + coord_cartesian(ylim = c(0, 10)) +
  geom_vline(pancreas, mapping=aes(xintercept = SurvTimeWeek), linetype="dotted", color = "red", size=1.0) + 
  theme_bw()
  
  ggplot() + 
  geom_line(data=total,  mapping=aes(x=time, y= Overall_QOL)) +
  geom_point(data=total, mapping=aes(x=time, y=Overall_QOL)) + 
  facet_wrap(~Patientnr, scales="free_x") + coord_cartesian(ylim = c(0, 100)) +
  geom_vline(pancreas, mapping=aes(xintercept = SurvTimeWeek), linetype="dotted", color = "red", size=1.0) + 
  theme_bw()