При чтении справки для spineplot становится ясно, что вы можете передавать параметры yaxlabels и xaxlabels для управления векторами для аннотаций осей.
Одна полезная функция - abbreviateчто сократит строки символов.
Объединение этой информации с примером spineplot дает:
treatment <- factor(rep(c(1, 2), c(43, 41)), levels = c(1, 2),
labels = c("placebo", "treated"))
improved <- factor(rep(c(1, 2, 3, 1, 2, 3), c(29, 7, 7, 13, 7, 21)),
levels = c(1, 2, 3),
labels = c("none", "some", "marked"))
spineplot(improved ~ treatment, yaxlabels=abbreviate(levels(improved), 2))
Не все функции построения в R имеютэтот тип параметра.Для более общего решения может потребоваться переименовать факторы, прежде чем переходить к функции построения графика.Вы можете получить доступ и изменить имена факторов, используя функцию levels:
levels(treatment) <- abbreviate(levels(treatment), 5)
plot(improved ~ treatment)
