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-18 18:07:48 +01:00
parent 093ae0d832
commit 771995d1ab
4 changed files with 33 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/plotting/basic_barplots_LIG.R
View file

@ -78,7 +78,7 @@ theme_set(theme_grey())
# start plot 1
#--------------
g = ggplot(df, aes(x = ligand_outcome))
outPlot = g + geom_bar(aes(fill = ligand_outcome)
OutPlot_lig_count = g + geom_bar(aes(fill = ligand_outcome)
, show.legend = TRUE) +
geom_label(stat = "count"
, aes(label = ..count..)
@ -100,7 +100,7 @@ outPlot = g + geom_bar(aes(fill = ligand_outcome)
scale_fill_discrete(name = "Ligand Outcome"
, labels = c("Destabilising", "Stabilising"))
print(outPlot)
print(OutPlot_lig_count)
dev.off()
table(df$ligand_outcome)
@ -166,7 +166,7 @@ my_als = 22 # axis label size
my_x = sort(unique(snpsBYpos_df$snpsBYpos))
g = ggplot(snpsBYpos_df, aes(x = snpsBYpos))
outPlot_pos = g + geom_bar(aes (alpha = 0.5)
OutPlot_lig_pos_count = g + geom_bar(aes (alpha = 0.5)
, show.legend = FALSE) +
scale_x_continuous(breaks = unique(snpsBYpos_df$snpsBYpos)) +
#scale_x_continuous(breaks = my_x) +
@ -185,7 +185,7 @@ outPlot_pos = g + geom_bar(aes (alpha = 0.5)
labs(x = "Number of SNPs"
, y = "Number of Sites")
print(outPlot_pos)
print(OutPlot_lig_pos_count)
dev.off()
########################################################################
# end of lig barplots