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

adjusted x axis position label for barplot_subcols_aa_LIG.R

Browse source
This commit is contained in:
Tanushree Tunstall 2020-10-06 18:42:24 +01:00
parent 9784cba232
commit 18b6407539
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/plotting/barplots_subcolours_aa_LIG.R
View file

@ -218,7 +218,7 @@ svg(plot_bp_aa_subcols_ligand, width = 26, height = 4)
g = ggplot(df, aes(factor(position, ordered = T)))
OutPlot = g +
OutPlot_aa_LIG = g +
coord_cartesian(xlim = c(1, my_xlim)
#, ylim = c(0, 6)
, ylim = c(0, max(snp_count))
@ -242,9 +242,9 @@ OutPlot = g +
, angle = 0
, hjust = 1
, vjust = 0)
, axis.title.x = element_text(size = my_xals)
, axis.title.x = element_text(size = my_xals
#, hjust = 1
#, vjust = 0.4)
, vjust = -0.4)
, axis.title.y = element_text(size = my_yals )
, axis.ticks.x = element_blank()) +
labs(title = ""
@ -252,7 +252,7 @@ OutPlot = g +
, x = "Position"
, y = "Frequency")
print(OutPlot)
print(OutPlot_aa_LIG)
dev.off()
#!!!!!!!!!!!!!!!!

4
scripts/plotting/barplots_subcolours_aa_PS.R
View file

@ -209,7 +209,7 @@ svg(plot_bp_aa_subcols_duet, width = 26, height = 4)
g = ggplot(df, aes(factor(position, ordered = T)))
outPlot = g +
OutPlot_aa_PS = g +
coord_cartesian(xlim = c(1, my_xlim)
#, ylim = c(0, 6)
, ylim = c(0, max(snp_count))
@ -240,7 +240,7 @@ outPlot = g +
, x = "Position"
, y = "Frequency")
print(outPlot)
print(OutPlot_aa_PS)
dev.off()
#!!!!!!!!!!!!!!!!