adjusted x axis position label for barplot_subcols_aa_LIG.R

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

View file

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

View file

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