mode(DATA$COLOR)
これは"numeric"
、R が因数を (スペースを節約するために) 数値コードとして内部的に格納し、さらにコード値に対応するラベルの関連付けられたベクトルを格納するためです。因子を印刷すると、R は各コードに対応するラベルを自動的に置き換えます。
f <- factor(c("orange","banana","apple"))
## [1] orange banana apple
## Levels: apple banana orange
str(f)
## Factor w/ 3 levels "apple","banana",..: 3 2 1
c(f) ## strip attributes to get a numeric vector
## [1] 3 2 1
attributes(f)
## $levels
## [1] "apple" "banana" "orange"
## $class
## [1] "factor"
... COLOR 変数のレベルを返す R コードを書く必要があります ...
levels(DATA$COLOR)
...次に、この変数の現在の参照レベルを決定し、
levels(DATA$COLOR)[1]
...そして最後に、この変数の参照レベルを白に設定します。
DATA$COLOR <- relevel(DATA$COLOR,"White")