tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

updated distribution scripts to try adding points

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-15 13:33:28 +01:00
parent 44d1f64e88
commit 445f3e2047
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
scripts/plotting/ggridges_lineage_country.R
View file

@ -187,6 +187,7 @@ p1 = ggplot(df, aes(x = duet_scaled
#printFile=geom_density_ridges_gradient( #printFile=geom_density_ridges_gradient(
geom_density_ridges_gradient(aes(fill = country_code) geom_density_ridges_gradient(aes(fill = country_code)
, jittered_points = TRUE
, scale = 3 , scale = 3
, size = 0.3 ) + , size = 0.3 ) +
facet_wrap( ~lineage facet_wrap( ~lineage

4
scripts/plotting/lineage_dist_combined_PS.R
View file

@ -168,6 +168,7 @@ p1 = ggplot(df, aes(x = duet_scaled
#printFile=geom_density_ridges_gradient( #printFile=geom_density_ridges_gradient(
geom_density_ridges_gradient(aes(fill = ..x..) geom_density_ridges_gradient(aes(fill = ..x..)
#, jittered_points = TRUE
, scale = 3 , scale = 3
, size = 0.3 ) + , size = 0.3 ) +
facet_wrap( ~lineage facet_wrap( ~lineage
@ -256,10 +257,11 @@ plot_lineage_dr_duet
p2 = ggplot(df_dr, aes(x = duet_scaled p2 = ggplot(df_dr, aes(x = duet_scaled
, y = duet_outcome))+ , y = duet_outcome))+
#printFile=geom_density_ridges_gradient(
geom_density_ridges_gradient(aes(fill = ..x..) geom_density_ridges_gradient(aes(fill = ..x..)
#, jittered_points = TRUE
, scale = 3 , scale = 3
, size = 0.3) + , size = 0.3) +
#geom_point(aes(size = or_mychisq))+
facet_wrap( ~lineage facet_wrap( ~lineage
, scales = "free" , scales = "free"
#, switch = 'x' #, switch = 'x'