问题描述
我正在使用一个表，该表包含通过在线问卷调查从高中毕业生那里获得的各种价值。问题之一是人们最喜欢的饮料是什么。我想将自己喜欢的饮料与一个晚上睡多少小时进行比较。
饮料栏包含咖啡，能量饮料，果汁，牛奶，汽水（咖啡因），汽水（非咖啡因，运动饮料，茶，水等）。
我想将所有饮料列更改为1 Not_water和2 Water，以便可以对数据进行t检验。
表名称：HS18，列名称：饮料，周末睡眠
解决方法
library(tidyverse)
HS18 %>%
mutate(drink = fct_other(Beverage,keep = "water",other_level = "not_water")
)
