Short R script to plot FAIRE scores for all TFs nicely