R geom_马赛克:X轴刻度标签未显示?

R geom_马赛克:X轴刻度标签未显示?,r,ggplot2,mosaic-plot,ggmosaic,R,Ggplot2,Mosaic Plot,Ggmosaic,我正在使用ggmosaic::geom_mosaic生成马赛克图。我似乎无法获得自变量在X轴上显示的值标签。该变量是一个标记因子,其级别标记为“1”、“2”、“3”。我肯定这是件愚蠢的事,但我不知道这里发生了什么。如有任何见解,将不胜感激 ggplot(data = mosaic)+ geom_mosaic(aes(x = product(X, Norm_Dx), fill=Norm_Dx), na.rm=TRUE) 我建议您使用马赛克图 mosaicplot(table(X, Norm_Dx

我正在使用
ggmosaic::geom_mosaic
生成马赛克图。我似乎无法获得自变量在X轴上显示的值标签。该变量是一个标记因子,其级别标记为“1”、“2”、“3”。我肯定这是件愚蠢的事,但我不知道这里发生了什么。如有任何见解,将不胜感激

ggplot(data = mosaic)+
geom_mosaic(aes(x = product(X, Norm_Dx), fill=Norm_Dx), na.rm=TRUE)

我建议您使用
马赛克图

mosaicplot(table(X, Norm_Dx))

有关更多信息,请参阅。

github问题似乎尚未完全解决。。。因此,对于同时迫切需要ggplot中马赛克图且无法从github获得更新的任何人,可以使用annotate:

data(Titanic)

titanic <- as.data.frame(Titanic)
titanic$Survived <- factor(titanic$Survived,
                           levels = c("Yes", "No"))

ggplot(data = titanic) +
  geom_mosaic(aes(weight = Freq, x = product(Class), fill = Survived)) +
  labs(x = "Passenger class",
       y = "Survived sinking",
       title = "Survival rate by passenger class")+      
  annotate(geom="text",x=0.43,y=-0.02,label="This                 is a                          very silly                                     solution",
           color="black",size=3)  +
  annotate(geom="text",x=-0.02,y=0.5,label="0                    0.25                  0.5                  0.75                    1",
           colour="black",size=3,angle=90)
数据(泰坦尼克号)

泰坦尼克号看到了github的这个问题:你能提供一个可复制的数据集示例吗?(请参阅:)@Ben-感谢您指导我解决github问题,我能够解决它。