假定您将类保存为一个因子，请使用relevel()函数:

Assuming you have class saved as a factor, use the relevel() function:

auth$class <- relevel(auth$class, ref = "YES")