data(example_data)
syn_polar <- polar_coords(outcome = syn_example_meta$Pathotype,
data = t(syn_example_rld))
grid <- polar_grid(r_vector=syn_polar@df[[1]]$r,
z_vector=syn_polar@df[[1]]$z,
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