r - sapplyルックアップリストの順序を使用して要因にこだわる

Question

sapply を使用して、データ フレームの列の要素を取得し、名前を変更する関数を作成しました。これは、ルックアップ リストと sapply を使用して行います。不思議なことに、ルックアップ リストに入れる順序によって出力が変わります。

これが私の例です：

this.frame <- cbind(c("AAA", "BBB", "CCC", "AAA", "BBB", "AAA"), c(1,2,3,4,1,3))
this.frame <- as.data.frame(this.frame)
letter.switch <- c("AAA" = "AB", "BBB" = "BC", "CCC" = "CD")
sapply(this.frame[, 1], function(var) {
    letter.switch[var][[1]]
})
letter.switch <- c("BBB" = "BC", "AAA" = "AB", "CCC" = "CD")
sapply(this.frame[, 1], function(var) {
    letter.switch[var][[1]]
})

ベクトルをアルファベット順にルックアップリストと比較し、それぞれの対応する要素が一致しているようですが、理由がわかりません。誰でもこの問題に光を当てて、解決策を見つけるのを手伝ってもらえますか?