Skip to content
Snippets Groups Projects
Commit 6efc53bc authored by Dominik Brilhaus's avatar Dominik Brilhaus
Browse files

remove r package dependency

parent bcac5a53
No related branches found
No related tags found
No related merge requests found
No preview for this file type
## PCA
# we need a few plotting-related libraries we have not used before
library(ggrepel)
library(ggplot2)
load(file = "runs/kallisto_combined/mothertableV2.Rdata")
......@@ -43,7 +43,7 @@ scores
pca12 <- ggplot(data = scores, aes(x = PC1, y = PC2)) +
theme_bw() +
geom_point(aes(color = treatment), size = 2.5) +
geom_text_repel(aes(label = treatment), size = 3) +
geom_text(aes(label = treatment), vjust = 1.5, size = 3) +
labs(
x = paste0("PCA1 (", s$importance[2, 1] * 100, "%)"),
y = paste0("PCA2 (", s$importance[2, 2] * 100, "%)")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment