# NOT RUN {
# }
# NOT RUN {
#Plot data before subsampling
heat_tree(unite_ex_data_3,
node_size = n_obs,
node_color = n_obs,
node_label = n_obs)
# Subsampling
subsampled <- taxonomic_sample(unite_ex_data_3,
max_counts = c("4" = 20, "7" = 5),
min_counts = c("7" = 3))
# Remove unobserved taxa and plot
heat_tree(subset(subsampled, n_obs > 0, unobserved = FALSE),
node_size = n_obs,
node_color = n_obs,
node_label = n_obs)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace