Как настроить ось X с помощью seqplot в R?

Question

В продолжение другого вопроса, касающегося оси Y графиков последовательности, я ищу способ манипулировать осью X графика последовательности с помощью R-пакета. TraMineR,

Проблема в том, что TraMineR поставляется с простым способом регулировки оси X, указав xtstep=, Однако это не дает полного контроля над осью X, так как невозможно указать количество тиков, меток тиков и конечного / предельного значения шкалы независимо друг от друга. В некоторых случаях это может быть хорошей функцией, как вы можете видеть, используя этот пример кода или присваивая два изображения ниже:

library(TraMineR) 
data(mvad)
mvad.alphabet <- c("employment", "FE", "HE", "joblessness", "school",
                   "training")
mvad.labels <- c("Employment", "Further Education", "Higher Education",
                 "Joblessness", "School", "Training")
mvad.scodes <- c("EM", "FE", "HE", "JL", "SC", "TR")

## Define sequence objects
mvad.seq <- seqdef(mvad[, 17:86], alphabet = mvad.alphabet,
                   states = mvad.scodes, labels = mvad.labels, weights = mvad$weight)

## Plots
seqIplot(mvad.seq, border=NA, xtstep=1, sortv="from.start") # Many ticks, some tick labels, x-scale shows last month as tick 
seqIplot(mvad.seq, border=NA, xtstep=12, sortv="from.start") # Few ticks, few tick labels, x-scale ends before last 8 months

График индекса последовательности с использованием xtstep=1

График индекса последовательности с использованием xtstep=12

Answer 1

Вы можете отключить ось X с axes = FALSE и затем создайте свою собственную ось X. Для этого вам также нужно отключить автоматическую легенду. Вот пример:

seqIplot(mvad.seq, border=NA, sortv="from.start", axes = F, withlegend=F) 
axis(1, at=c(1,70)-.5, labels = c("Sep. 93","Jun. 99"))