Create scale_fill_valentine.R

Discrete fill scale using the Valentine's Day theme palette