R alluvial chart with NA

data(vaccinations)
levels(vaccinations$response) <- rev(levels(vaccinations$response))
ggplot(vaccinations,
       aes(x = survey, stratum = response, alluvium = subject,
           y = freq,
           fill = response, label = response)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow() +
  geom_stratum(alpha = .5) +
  geom_text(stat = "stratum", size = 3) +
  theme(legend.position = "none") +
  ggtitle("vaccination survey responses at three points in time")

Source: cran.r-project.org

R alluvial chart with NA

ggplot(as.data.frame(Titanic),
       aes(y = Freq,
           axis1 = Survived, axis2 = Sex, axis3 = Class)) +
  geom_alluvium(aes(fill = Class),
                width = 0, knot.pos = 0, reverse = FALSE) +
  guides(fill = FALSE) +
  geom_stratum(width = 1/8, reverse = FALSE) +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)),
            reverse = FALSE) +
  scale_x_continuous(breaks = 1:3, labels = c("Survived", "Sex", "Class")) +
  coord_flip() +
  ggtitle("Titanic survival by class and sex")

Source: cran.r-project.org

R alluvial chart with NA

data(majors)
majors$curriculum <- as.factor(majors$curriculum)
ggplot(majors,
       aes(x = semester, stratum = curriculum, alluvium = student,
           fill = curriculum, label = curriculum)) +
  scale_fill_brewer(type = "qual", palette = "Set2") +
  geom_flow(stat = "alluvium", lode.guidance = "frontback",
            color = "darkgray") +
  geom_stratum() +
  theme(legend.position = "bottom") +
  ggtitle("student curricula across several semesters")

Source: cran.r-project.org

Similar codes

0 vote347 views1 answer
Extract number from string field R
R
0 vote328 views1 answer
Grid.arrange
R
0 vote321 views2 answers
List to dataframe in r
R
0 vote312 views1 answer
How to return the date with only the day in it in r
R
1 vote329 views1 answer
R find elements in common between vectors
R
0 vote298 views1 answer
Convert all numeric columns to percentages R
R
0 vote289 views5 answers
Vlookup in r dplyr
R
0 vote358 views1 answer
Score pairs of records probabilistically in r
R
0 vote331 views1 answer
Add comma every 3 digits in r
R
0 vote296 views1 answer
Gradient background ggplot
R