在这里，随意重新排序水平并不是个好主意！这是因为 rincome 已经有了一个合理的顺序，我们不应该打乱它。fct_reorder() 只应保留给那些水平顺序任意的因子使用。

不过，把 "Not applicable" 和其他特殊水平一起提到最前面是有意义的。你可以使用 fct_relevel()。它接受一个因子 f，然后是任意多个你想要移到最前面的水平：

ggplot( rincome, aes(age, fct_relevel(rincome, "Not applicable")) ) + geom_point()

你认为 "Not applicable" 的平均年龄为什么这么高？