This is a dataframe I have,
Sales <- data.frame(State = c("New York", "New Jersey", "Texas","New Mexico","Ca