From 445f3e204732954528b3e1bccae47efe670abd47 Mon Sep 17 00:00:00 2001 From: Tanushree Tunstall Date: Tue, 15 Sep 2020 13:33:28 +0100 Subject: [PATCH] updated distribution scripts to try adding points --- scripts/plotting/ggridges_lineage_country.R | 1 + scripts/plotting/lineage_dist_combined_PS.R | 10 ++++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/scripts/plotting/ggridges_lineage_country.R b/scripts/plotting/ggridges_lineage_country.R index cc10c37..eb4e6ab 100644 --- a/scripts/plotting/ggridges_lineage_country.R +++ b/scripts/plotting/ggridges_lineage_country.R @@ -187,6 +187,7 @@ p1 = ggplot(df, aes(x = duet_scaled #printFile=geom_density_ridges_gradient( geom_density_ridges_gradient(aes(fill = country_code) + , jittered_points = TRUE , scale = 3 , size = 0.3 ) + facet_wrap( ~lineage diff --git a/scripts/plotting/lineage_dist_combined_PS.R b/scripts/plotting/lineage_dist_combined_PS.R index f59cf44..bf1c75b 100644 --- a/scripts/plotting/lineage_dist_combined_PS.R +++ b/scripts/plotting/lineage_dist_combined_PS.R @@ -168,6 +168,7 @@ p1 = ggplot(df, aes(x = duet_scaled #printFile=geom_density_ridges_gradient( geom_density_ridges_gradient(aes(fill = ..x..) + #, jittered_points = TRUE , scale = 3 , size = 0.3 ) + facet_wrap( ~lineage @@ -254,12 +255,13 @@ plot_lineage_dr_duet # output svg #svg(plot_lineage_dr_duet) p2 = ggplot(df_dr, aes(x = duet_scaled - , y = duet_outcome))+ - - #printFile=geom_density_ridges_gradient( + , y = duet_outcome))+ + geom_density_ridges_gradient(aes(fill = ..x..) + #, jittered_points = TRUE , scale = 3 - , size = 0.3 ) + + , size = 0.3) + + #geom_point(aes(size = or_mychisq))+ facet_wrap( ~lineage , scales = "free" #, switch = 'x'