Ввод новых меток тиков оси с использованием команды seqrplot

Question

Я использую пакеты R TraMineR для вычисления и анализа последовательностей состояний. Я пытаюсь построить с помощью команды seqrplot и изменить метки метки оси x. код будет, например:

library("TraMineR") 
data("mvad") 
mvad.alphab <- c("employment", "FE", "HE", "joblessness", "school", "training") 
mvad.seq <- seqdef(mvad, 17:86, xtstep = 6, alphabet = mvad.alphab) 
mvad.dist<-seqdist(mvad.seq, method="DHD") 

seqrplot(mvad.seq, dist.matrix = mvad.dist, 
     criterion = "density", nrep = 1, title = "End CS qualification", 
     border = NA, axes=FALSE) 
axis(1, at = c(1, 6, 12, 18, 24, 30, 36, 42, 48, 54,60,66,70), 
    labels = c(1, 6, 12, 18, 24, 30, 36, 42, 48, 54,60,66,70)) 

Оси й исчезает, а на новых оси с вмененными густыми значениями появляется где-то в самом низу справа от участка. Другими словами, он не заменяет удаленную ось. Кто-нибудь знает, что я делаю неправильно? Спасибо

Answer 1

Проблема заключается в том, что по умолчанию seqrplot (как и другие сюжетные функции seq?plot семьи) автоматически отображает цветовую легенду вместе с сюжетом, и использует layout организовать сюжет и легенды в одном графике. Если вы хотите действовать по осям, вы должны отключить автоматическую легенду, установив withlegend = FALSE, а затем отобразите легенду моей рукой. Например:

opar <- par(mfrow=c(1,2)) 
seqrplot(mvad.seq, dist.matrix = mvad.dist, 
     criterion = "density", nrep = 1, title = "End CS qualification", 
     border = NA, axes=FALSE, withlegend=F) 
axis(1, at = c(1, 6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66, 70), 
    labels = c(1, 6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66, 70)) 
seqlegend(mvad.seq) 
par(opar)