From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 29 Dec 2014 18:32:44 +0000 (-0800)
Subject: change position of names and justification
X-Git-Url: https://git.donarmstrong.com/?p=plotprotein.git;a=commitdiff_plain;h=4ff1f0acbf17b248c9e7d4e453828f0184684e04

change position of names and justification
---

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")
               )
 }