ggplotのgeom_tileでY軸を反転させるにはどうすればよいですか？

Question

以下はグラフです。 Y軸を逆にすると、 "b a"の代わりに "a b"が読み込まれ、X軸はそのままの状態で読み込まれます。

コード：

library(ggplot2) 
levels = ordered(c('a', 'b')) 
data = data.frame(x=ordered(c('a', 'a', 'b', 'b'), levels=levels), 
        y=ordered(c('a', 'b', 'a', 'b'), levels=levels), 
        prob=c(0.3, 0.7, 0.4, 0.6)) 
ggplot(data, aes(x, y)) + geom_tile(aes(fill=prob)) 

Answer 1

私はこれを考え出しました。

ggplot(data, aes(x, ordered(y, levels=rev(levels)))) + geom_tile(aes(fill=prob))