Plots a muller plot of the simulation, using the store time-series data and package ggmuller.
Examples
sim <- SpatialSimulation()
sim$add_mutant(name = "A",
epigenetic_rates = c("+-" = 0.01, "-+" = 0.01),
growth_rates = c("+" = 0.2, "-" = 0.08),
death_rates = c("+" = 0.02, "-" = 0.01))
sim$history_delta = 1
sim$place_cell("A+", 500, 500)
sim$run_up_to_time(60)
#>
[████████████████████████████████████████] 100% [00m:00s] Saving snapshot
plot_muller(sim)
# define a custom color map
color_map <- c("#B2DF8A", "#E31A1C")
names(color_map) <- c("A+", "A-")
plot_muller(sim, color_map=color_map)