Пошаговые метки оси.

Question

Я строю график Манхэттена, используя этот код https://genome.sph.umich.edu/wiki/Code_Sample:_Generating_Manhattan_Plots_in_R

, но все мои ярлыки ксаксиса перекрываются.Я попытался изменить на check.overlap = T

, но он просто пропускает некоторые метки x, чтобы избежать наложения, но мне нужно, чтобы все затем отображалось.

 #custom axis to print chromosome names
  axis.chr <- function(side,...) {
    if(side=="bottom") {
      panel.axis(side=side, outside=T,
                 at=((posmax+posmin)/2+posshift),
                 labels=levels(chr), 
                 ticks=F, rot=0,
                 check.overlap=F
      )
    } else if (side=="top" || side=="right") {
      panel.axis(side=side, draw.labels=F, ticks=F);
    }
    else {
      axis.default(side=side,...);
    }
  }

Похоже, мне нужно было бы пошатываться, но не знаю, как.