Skip to content
Snippets Groups Projects
Commit cce9eee6 authored by Simeon's avatar Simeon
Browse files

Merge remote-tracking branch 'origin/main'

parents 6048f14b a594c0e4
Branches
No related tags found
No related merge requests found
......@@ -853,6 +853,13 @@ set$topntax_tbl <- psmelt(set$ps.topnTax) %>%
arrange(ndvi) %>%
mutate(ndvi_rank = c(1:length(ndvi)))
set$other <- set$topntax_tbl %>%
group_by(Alias) %>%
summarise(sumabu = sum(Abundance)) %>%
mutate(Genus = 'Other', Abundance = 1-sumabu) %>%
select(-sumabu)
set$topntax_tbl <- bind_rows(set$topntax_tbl, set$other)
plots$topn_tax_custom <- ggplot(set$topntax_tbl, aes(x = fct_reorder(Alias, ndvi),
y = Abundance,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment