Без меток оси и меток меток оси с ggmosaic

Question

Без меток оси и меток меток оси с ggmosaic

Я пытаюсь создать корешок с помощью ggmosaic. Однако метки и метки оси не отображаются. Я также пытался добавить их вручную с помощью scale_x_productlist.

Согласно следующему обсуждению, возникла проблема совместимости с разными версиями ggplot2 и ggmosaic: https://github.com/haleyjeppson/ggmosaic/issues/41. К сожалению, похоже, что проблема все еще возникает с ggmosaic 0.2.0 и ggplot2 3.3.2.

Возможно изменение метки оси.

Буду очень признателен за любой совет! Благодаря!

library(tidyverse)
library(ggplot2)
library(ggmosaic)
library(haven)
library(titanic)


packageDescription("ggmosaic")$Version
#> [1] "0.2.0"
#> [1] "0.2.0"
packageDescription("ggplot2")$Version
#> [1] "3.3.2"
#> [1] "3.3.2"

titanic <- titanic::titanic_train

titanic <- titanic %>% 
  mutate(
    survived = factor(Survived, labels = c("Died", "Survived")),
    pclass = factor(Pclass)
  )

#default tick marks are missing 
ggplot(data = titanic) +
  geom_mosaic(aes(x = product(pclass), fill = survived))

#adding labels works
ggplot(data = titanic) +
  geom_mosaic(aes(x = product(survived,pclass), fill = survived)) +
  ggplot2::labs(x = "Passenger class",
                y = "Survived sinking",
                title = "Survival rate by passenger class")

#scale_x_productlist() does not change the result
ggplot(data = titanic) +
  geom_mosaic(aes(x = product(survived,pclass), fill = survived)) +
  ggplot2::labs(x = "Passenger class",
                y = "Survived sinking",
                title = "Survival rate by passenger class") +
  scale_x_productlist(breaks=c(1:3), labels=c("class1", "class2", "class3"))

Spineplot без меток и без делений