Skip to content

GitLab

Commit 98a4deff authored by Dimitrios Kyriakis's avatar Dimitrios Kyriakis
Browse files

snakemakenetwork

parent e0a807d6
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
Scripts/Snakemake/4.Network_Validation.R
View file @ 98a4deff
...@@ -182,6 +182,7 @@ p3 <- ggplot(dt, aes(x=.id, y=Degree,group=.id,fill=Condition)) + ...@@ -182,6 +182,7 @@ p3 <- ggplot(dt, aes(x=.id, y=Degree,group=.id,fill=Condition)) +
# stat_compare_means(ref.group = 51, label = "p.signif", # stat_compare_means(ref.group = 51, label = "p.signif",
# label.y = c(22, 29)) # label.y = c(22, 29))
my_comparisons <- list( c("DEG","RANDOM"))
p4 <- ggboxplot(dt, x = "Condition", y = "Degree", p4 <- ggboxplot(dt, x = "Condition", y = "Degree",
fill = "Condition")+ fill = "Condition")+
...@@ -189,7 +190,7 @@ p4 <- ggboxplot(dt, x = "Condition", y = "Degree", ...@@ -189,7 +190,7 @@ p4 <- ggboxplot(dt, x = "Condition", y = "Degree",
stat_compare_means(label.y = 50) + theme_cowplot() + ylab("Degree") stat_compare_means(label.y = 50) + theme_cowplot() + ylab("Degree")
my_comparisons <- list( c("DEG","RANDOM"))
dt2 <- dt[order(Condition),] dt2 <- dt[order(Condition),]
p4 <- ggboxplot(dt2, x = "Condition", y = "Degree", p4 <- ggboxplot(dt2, x = "Condition", y = "Degree",
fill = "Condition")+ fill = "Condition")+
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment