Rでよくわからないこと

こんにちは、最近課題でRを使っているんですが、どうしてもなんでそうなるのかわからないのがあるので書いてみます。

key <- c("A", "B")
val <- c("C", "D")

df <- data.frame(KEY=key, VAL=val)

df[df$KEY=="A", ]$VAL <- "A"
print(df)

これですが、結果は以下のようになります。

  KEY  VAL
1  A  <NA>
2   B    D

どうしてこうなるのかがさっぱりわかりません。