diff --git a/scripts/plotting/barplots_subcolours_aa_LIG.R b/scripts/plotting/barplots_subcolours_aa_LIG.R index 9f7a70f..d898263 100755 --- a/scripts/plotting/barplots_subcolours_aa_LIG.R +++ b/scripts/plotting/barplots_subcolours_aa_LIG.R @@ -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() #!!!!!!!!!!!!!!!! diff --git a/scripts/plotting/barplots_subcolours_aa_PS.R b/scripts/plotting/barplots_subcolours_aa_PS.R index 7c0a3aa..f8cba80 100755 --- a/scripts/plotting/barplots_subcolours_aa_PS.R +++ b/scripts/plotting/barplots_subcolours_aa_PS.R @@ -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() #!!!!!!!!!!!!!!!!