plot_rudimentary_JSD_logo: Quick visualisation of the Jensen-Shannon divergence

View source: R/pwm_utils.R

plot_rudimentary_JSD_logoR Documentation

Description

Quick visualisation of the Jensen-Shannon divergence

Usage

plot_rudimentary_JSD_logo(
  long_df,
  axis_txt_size = 10,
  alphabet_palette = c(t = "forestgreen", c = "dodgerblue", g = "orange", a =
    "firebrick3")
)

Arguments

long_df

A data.frame created with df2JSD(long_format = T).

axis_txt_size
alphabet_palette

Value

A ggplot plot

Examples

df2JSD(df1 = data_p, df2 = data_q, ID_col, alphabet, long_format = T) |>
  plot_rudimentary_JSdiv_logo()
# alphabet is case sensitive, in this example the lowercase letters will be in grey.
df2JSD(df1 = df_clade1, df2 = df_clade2, ID_col = 'Species', 
                alphabet = c('A', 'C', 'T', 'G', 'a', 'c', 't', 'g'), long_format = T) |>
   plot_rudimentary_JSD_logo(alphabet_palette = c('A' ="firebrick3", 'C' = "dodgerblue", 'T' = "forestgreen", 'G' ="orange") )

Ni-Ar/niar documentation built on Feb. 3, 2025, 9:25 a.m.