How could I compress the character values in a column down into 2 in r?

Question

I am working with a table that contains various values taken from high school seniors by an online questionnaire. One of the questions is what one's favorite beverage is. I would like to compare a favorite drink along with how many hours of sleep the individual gets in a night.

The beverage column has coffee, energy drinks, juice, milk, soft drinks (caffeine), soft drinks(non-caffeine, sports drink, tea, water, and other.

I would like to mutate all of the drink columns down to 1 Not_water and 2 Water so I could perform a t-test on the data.

Table Name: HS18, Column Names: Beverage, Weekend_Sleep

Answer 1

library(tidyverse)

HS18  %>%
  mutate(drink = fct_other(Beverage, 
                          keep = "water", 
                          other_level = "not_water")
  )