我正在使用一个表，该表包含通过在线问卷从高中生那里获得的各种值。其中一个问题是一个人最喜欢的饮料是什么。我想将一个人最喜爱的饮料与一个人一晚上的睡眠时间进行比较。
饮料栏目有咖啡、能量饮料、果汁、牛奶、软饮料(咖啡因(、软饮料、非咖啡因、运动饮料、茶、水等。
我想将所有的饮料列变为1个Not_water和2个water，这样我就可以对数据进行t检验。
表名：HS18，列名：饮料，周末睡眠
library(tidyverse)
HS18 %>%
mutate(drink = fct_other(Beverage,
keep = "water",
other_level = "not_water")
)