mpn_elite_mex <- mpn_elite_mex %>% to_subgraph(in_mpn == 1)
mpn_elite_mex2 <- generate_permutation(mpn_elite_mex)
ggevolution(mpn_elite_mex, mpn_elite_mex2)
ggevolution(mpn_elite_mex, mpn_elite_mex2, based_on = "last")
ggevolution(mpn_elite_mex, mpn_elite_mex2, based_on = "both")
Run the code above in your browser using DataLab