View source: R/SupplementaryFunctions.R
get_edges | R Documentation |
Extract an adjacency matrix from a larger data frame
get_edges(df, generation = NA)
df |
Dataframe inclduing column names "Identity", "Parent", and either "Generation" or "Time" |
generation |
Numeric value of Generation (or Time) at which to determine the adjacency matrix (defaults to final time point) |
A dataframe comprising the adjacency matrix.
Rob Noble, robjohnnoble@gmail.com
get_population_df
## Not run: edges <- get_edges(example_df) # extract the adjacency matrix from the data frame: pop_df <- get_population_df(example_df) # create data frame for plot: Muller_df <- get_Muller_df(edges, pop_df) require(RColorBrewer) # for the palette # draw plot: num_cols <- length(unique(Muller_df$RelativeFitness)) + 1 Muller_df$RelativeFitness <- as.factor(Muller_df$RelativeFitness) Muller_plot(Muller_df, colour_by = "RelativeFitness", palette = rev(colorRampPalette(brewer.pal(9, "YlOrRd"))(num_cols)), add_legend = TRUE) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.