Skip to contents

Plots a muller plot of the simulation, using the store time-series data and package ggmuller.

Usage

plot_muller(simulation, color_map = NULL)

Arguments

simulation

A simulation object.

color_map

A named vector representing the simulation species color map (optional).

Value

An editable ggplot plot.

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)