モザイクプロットの下に軸ラベルを表示

Question

プロットの最上部のx値をプロットの最下部に表示する際のデフォルト設定を変更しようとしています。

ここ

が小さい例である：

Betta <- c(1,12,23,20) 
dim(Betta) <- c(2,2) 
dimnames(Betta) <- list(Temperature = c("28", "25"), Flare = c("Yes", "No")) 
mosaicplot(x = Betta, main = "Title") 

物事を明確にするために、私は、温度が右のx軸上に、グラフ上の一番下に28と25の値に移動しようとしています"温度"。

ヘルプを評価してください！

Answer 1

あなたは、設定を「×」WRTに変更したくない、それはあなたのquesstionから明らかではないが、何

df <- as.data.frame(as.table(Betta)) # first, transform the contingency table into a data.frame 
library(ggmosaic) 
ggplot(data=df)+ 
    geom_mosaic(aes(weight=Freq,x=product(Temperature), fill=Flare))+ 
    labs(x="Temperature")