Use time before present + plot recolonisations

[joshwlambert]

The Endemic_singleton_MaxAge island species are plotted near the edge of the plot but they should have the longest line. This makes me think that the plot_daisie_mainland_data function should plot "Time before present" on the x-axis. @richelbilderbeek would this be possible for you to implement?

[joshwlambert]

Minimal working example:

set.seed(
1,
kind = "Mersenne-Twister",
normal.kind = "Inversion",
sample.kind = "Rejection"
)

daisie_mainland_data <- DAISIEmainland::sim_island_with_mainland(
total_time = 1,
m = 100,
island_pars = c(1.0, 0.5, 10, 0.1, 0.5),
mainland_ex = 2,
mainland_sample_prob = 1,
mainland_sample_type = "complete",
replicates = 1,
verbose = FALSE
)

DAISIEmainland::plot_daisie_mainland_data(
daisie_mainland_data = daisie_mainland_data,
replicate_index = 1
)

[joshwlambert]

[joshwlambert]

Potentially a second bug in plot_daisie_mainland_data. In this example the ideal data should plot a recolonisation, but only plots one of the species from the all_colonisations.

set.seed(
1,
kind = "Mersenne-Twister",
normal.kind = "Inversion",
sample.kind = "Rejection"
)

daisie_mainland_data <- DAISIEmainland::sim_island_with_mainland(
total_time = 1,
m = 50,
island_pars = c(1.0, 0.5, 10, 0.1, 0.5),
mainland_ex = 2,
mainland_sample_prob = 1,
mainland_sample_type = "complete",
replicates = 1,
verbose = FALSE
)

DAISIEmainland::plot_daisie_mainland_data(
daisie_mainland_data = daisie_mainland_data,
replicate_index = 1
)

[joshwlambert]

[richelbilderbeek]

@joshwlambert thanks for the bug reports! I will fix this tonight.

[richelbilderbeek]

Moved the first part of the Isse to #64.

[richelbilderbeek]

• First part of the Issue is at plot_daisie_mainland_data: reverse time axis #64
• Second part of the Issue is at Plot all recolonisations in 'plot_daisie_mainland_data' #68

Hence, this can be closed :-)