plot_pro: Plot proteins changing overtime
In tsoleary/proteomixr: Label-free quantitative proteomics & D3-Leu turnover

Plots changing protein abundance over time for two different groups

1 2	plot_pro(dat, g_title, FUN = geom_jitter, x_pos = 9, y1_pos = 0.83, y2_pos = 0.3)

`dat`	a data frame containing abundance and week columns
`g_title`	title of the plot
`FUN`	geom_jitter or geom_point
`x_pos, y1_pos, y2_pos`	x and y coordinates of the linear eqn and r-squared objects

pros <- as.character(unique(df$Master.Protein.Accessions))

plot_list <- list()

for (pro in pros){
  gene <- indiv_mpa_to_gene(pro, protein)
  temp_df <- filter(df, Master.Protein.Accessions == pro)
  g <- plot_pro(temp_df, g_title = gene)
  plot_list[[pro]] <- g
}

pdf("all_plots.pdf", width = 10.75, height = 6)

for(pro in pros){
  print(plot_list[[pro]])
}