Skip to content

Commit

Permalink
up
Browse files Browse the repository at this point in the history
  • Loading branch information
TuomasBorman committed Sep 23, 2024
1 parent 72bf486 commit 6e8a7e5
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 2 deletions.
6 changes: 5 additions & 1 deletion vignettes/MGnifyR.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -194,7 +194,11 @@ library(miaViz)
# Plot top taxa
top_taxa <- getTopFeatures(altExp(mae[[1]], "Phylum"), 10)
plotAbundance(altExp(mae[[1]], "Phylum")[top_taxa, ], rank = "Phylum")
plotAbundance(
altExp(mae[[1]], "Phylum")[top_taxa, ],
rank = "Phylum",
as.relative = TRUE
)
```

We can also perform other analyses such as principal component analysis to
Expand Down
6 changes: 5 additions & 1 deletion vignettes/MGnifyR_long.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -268,7 +268,11 @@ plotColData(tse, "shannon", x = "sample_geo.loc.name")
```{r plot_abundance}
library(miaViz)
plotAbundance(tse[!is.na( rowData(tse)[["Kingdom"]] ), ], rank = "Kingdom")
plotAbundance(
tse[!is.na( rowData(tse)[["Kingdom"]] ), ],
rank = "Kingdom",
as.relative = TRUE
)
```

If needed, `TreeSE` can be converted to `phyloseq`.
Expand Down

0 comments on commit 6e8a7e5

Please sign in to comment.