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

saving work

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-15 13:34:26 +01:00
parent 445f3e2047
commit 83deb64e1c
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
scripts/plotting/ggridges_lineage_country.R
View file

@ -253,3 +253,37 @@ p2 = ggplot(df, aes(x = duet_scaled
p2
#===============
# lineage only
#================
#svg(plot_lineage_duet)
p3 = ggplot(df, aes(x = duet_scaled
, y = duet_outcome))+
geom_density_ridges_gradient(aes(fill = ..x..)
, jittered_points = TRUE
, scale = 3
, size = 0.3 ) +
facet_wrap( ~lineage
, scales = "free"
#, switch = 'x'
, labeller = labeller(lineage = my_labels) ) +
coord_cartesian( xlim = c(-1, 1)) +
scale_fill_gradientn(colours = c("#f8766d", "white", "#00bfc4")
, name = "DUET" ) +
theme(axis.text.x = element_text(size = my_ats
, angle = 90
, hjust = 1
, vjust = 0.4)
, axis.text.y = element_blank()
, axis.title.x = element_blank()
, axis.title.y = element_blank()
, axis.ticks.y = element_blank()
, plot.title = element_blank()
, strip.text = element_text(size = my_als)
, legend.text = element_text(size = my_als-5)
, legend.title = element_text(size = my_als)
)
print(p3)