# NOT RUN {
data(example_data)
syn_polar <- polar_coords(sampledata = syn_example_meta,
contrast = "Pathotype",
groups = NULL,
pvalues = syn_example_p,
expression = syn_example_rld,
p_col_suffix = "pvalue",
padj_col_suffix = "padj",
non_sig_name = "Not Significant",
multi_group_prefix = "LRT",
significance_cutoff = 0.01,
fc_col_suffix='log2FoldChange',
fc_cutoff = 0.3)
grid <- polar_grid(r_vector=syn_polar@polar$r_zscore,
z_vector=-log(syn_polar@pvalues$LRT_pvalue),
r_axis_ticks = NULL,
z_axis_ticks = NULL)
p <- show_grid(grid)
p$polar
p$cyl
# }
Run the code above in your browser using DataLab