Alluvial Diagram

PAC 2 VISUALITZACIO DE DADES: Alluvial Diagram

airline <- read.csv("test.csv")

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

airline_data <- select(airline, Class, satisfaction)


#airline_data$Class <- factor(airline_data$Class, levels = c("Eco", "Eco Plus", "Business"))
#airline_data$Gender <- as.factor(airline_data$Gender)
#airline_data$satisfaction <- factor(airline_data$satisfaction, levels = c("Neutral or Dissatisfied", "Satisfied"))

#Crear Alluvial
library(ggplot2)
library(ggalluvial)

## Warning: package 'ggalluvial' was built under R version 4.1.3

ggplot(data = airline_data,
       aes(axis1 = Class, axis2 = satisfaction, y = ..count..)) +
  geom_alluvium(aes(fill = satisfaction)) +
  geom_stratum() +
  geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  scale_x_discrete(limits = c("Class", "Satisfaction"), expand = c(0.15, 0.05)) +
  theme_void()

## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## i Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.