r - 在马赛克图下方显示轴标签

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")

为了清楚起见，我试图将温度值 28 和 25 移到图表的底部，就在 x 轴“温度”的上方。

感谢您的帮助!

Answer 1

您可以在下面的示例中使用包 ggmosaic

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")