library(data.table)
data = fread("data/data_lt_plot.csv")[
  growth %in% c(0.01) & id == 1 & type == "exploit",]
setorder(data, id, rep_, t)
library(ggplot2)
(ggplot(data)+
  geom_path(
    aes(x_wrap, y_wrap,
        group = interaction(id, interval, rep_, type),
        col = factor(interval)),
    show.legend = F
  )+
  scale_colour_viridis_d(
    option = "H",
    begin = 0.1,
    end = 0.9
  )+
  coord_equal()+
  theme_void()) |>
  ggsave(
    filename = "figures/fig_paths.png"
  )


pratikunterwegs/process-pattern documentation built on Dec. 22, 2021, 9:50 a.m.