変数値に対応する要素

変数 x のとる値が，1，3，6，9 のとき，対応する色 red, green, blue, brown を割り当てる
x <- c(1,6,9,3,3,6,9,1,3)
y <- as.integer(names(table(x)))
color <- c("red", "green", "blue", "brown")
sapply(x, function(z) color[which(z==y)]) # 解1
color[matrix(outer(x, y, "=="), length(x)) %*% 1:length(y)] # 解2