Please i need help to tidy up my data

(icecream <- readRDS(url("https://ecnp003.netlify.app/data/icecream.rds"))

by grouping it into two. I would like to group the temperature based on its distinct value as one set of data and the remainder as another set of data.

The total revenue on both sets (the distinct value set and the second set ) should be equal to the total revenue on the complete set.

I have used the following command to get the distinct value but i am not sure of the completeness.

distinct_Table <- distinct(icecream, temperature, .keep_all=TRUE)