X-Git-Url: https://git.donarmstrong.com/?p=plotprotein.git;a=blobdiff_plain;f=R%2Fplot.clustal.R;h=ae9935214d0cbe815595cde0ba2b0d261aa6da1c;hp=f97587386356603cce9886f52515b9ffb43c3f83;hb=4ff1f0acbf17b248c9e7d4e453828f0184684e04;hpb=f17000299c74bbbc8e5dd5029c13ba50757f6dab

diff --git a/R/plot.clustal.R b/R/plot.clustal.R
index f975873..ae99352 100644
--- a/R/plot.clustal.R
+++ b/R/plot.clustal.R
@@ -176,8 +176,9 @@ plot.clustal <- function(clustal,tree=NULL,refseq=1,refseq.start=1) {
     position.strings <- as.character(position.strings)
     position.strings[!wanted.position.strings] <- ""
     grid.text(position.strings,
-              y=unit((length(clustal.names)-1)/2+1,"lines")+unit(0.5,"npc"),
+              y=unit((length(clustal.names)-1)/2+0.6,"lines")+unit(0.5,"npc"),
               x=unit(symbol.pos.x,"mm")+symbol.offset.x,
-              rot=90
+              rot=90,
+              just=c("left","center")
               )
 }