result <- dplyr::tibble(
treatment_1 = c("A", "A", "A", "B", "B", "B", "C", "C"),
treatment_2 = c("A", "A", "B", "A", "B", "B", "B", "C"),
treatment_3 = c("A", "B", "B", "A", "A", "B", "B", "C"),
count = c(22, 3, 5, 7, 3, 17, 4, 12)
)
# basic alluvial plot with 3 axes
alluvialPlot(
result = result,
x = c("treatment_1", "treatment_2", "treatment_3"),
y = "count"
)
# colour by first axis
alluvialPlot(
result = result,
x = c("treatment_1", "treatment_2", "treatment_3"),
y = "count",
colour = "treatment_1"
)
# colour by multiple variables
alluvialPlot(
result = result,
x = c("treatment_1", "treatment_2", "treatment_3"),
y = "count",
colour = c("treatment_1", "treatment_2")
)
Run the code above in your browser using DataLab