[r] How to assign colors to categorical variables in ggplot2 that have stable mapping?