2017-05-06 69 views
2

我试图更改显示绘图顶部的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") 

enter image description here

而为了清楚起见,我试图移动的温度值28和25,在图上的底部,右侧上方x轴“温度”。

感谢帮助!

+0

的例子你有什么想在WRT改变“X”设置,它不是来自你的quesstion清楚了吗? – PKumar

+1

sry,我想要的是将值28和25移动到图形的底部,所以它会在x轴标签上方(这是本例中的温度) –

+0

您可以尝试打包'ggmosaic',但必须使用'data.frame'而不是应急表。 –

回答

0

您可以使用包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") 

enter image description here

+0

非常感谢您的帮助!这解决了我的问题。 –

+0

很高兴收到您的反馈 –