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

added ns prefix to SNPs for unambiguity

Browse source
This commit is contained in:
Tanushree Tunstall 2020-10-13 13:37:22 +01:00
parent 59911687c8
commit 1f9ea3f789
3 changed files with 7 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

30
scripts/plotting/basic_barplots_foldx.R
View file

@ -71,7 +71,7 @@ theme_set(theme_grey())
# start plot 1
#--------------
g = ggplot(df, aes(x = foldx_outcome))
OutPlot_count = g + geom_bar(aes(fill = foldx_outcome)
foldx_outcome_count = g + geom_bar(aes(fill = foldx_outcome)
, show.legend = TRUE) +
geom_label(stat = "count"
, aes(label = ..count..)
@ -87,39 +87,15 @@ OutPlot_count = g + geom_bar(aes(fill = foldx_outcome)
, legend.title = element_text(size=my_als)
, plot.title = element_blank()) +
labs(title = ""
, y = "Number of SNPs"
, y = "Number of nsSNPs"
#, fill="FoldX Outcome"
) +
scale_fill_discrete(name = "FoldX Outcome"
, labels = c("Destabilising", "Stabilising"))
print(OutPlot_count)
print(foldx_outcome_count)
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)