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

changing labels in graphs for frontiers journal

Browse source
This commit is contained in:
Tanushree Tunstall 2020-10-09 13:10:08 +01:00
parent 2f1f02e1de
commit 59911687c8
5 changed files with 39 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
scripts/plotting/basic_barplots_foldx.R
View file

@ -99,5 +99,27 @@ dev.off()
table(df$foldx_outcome)
#=======================================================================
g = ggplot(df, aes(x = foldx_outcome))
OutPlot_count = g + geom_bar(aes(show.legend = TRUE)) +
geom_label(stat = "count"
, aes(label = ..count..)
, color = "black"
, show.legend = FALSE
, size = 10) +
theme(axis.text.x = element_blank()
, axis.title.x = element_blank()
, axis.title.y = element_text(size=my_als)
, axis.text.y = element_text(size = my_ats)
, legend.position = c(0.73,0.8)
, legend.text = element_text(size=my_als-2)
, legend.title = element_text(size=my_als)
, plot.title = element_blank()) +
labs(title = ""
, y = "Number of SNPs"
#, fill="FoldX Outcome"
) + scale_fill_manual("legend", values = c("Destabilising" = "black", "Stabilising" = "orange")) +
scale_fill_discrete(name = "FoldX Outcome"
, labels = c("Destabilising", "Stabilising"))
print(OutPlot_count)