TraMineR-seqiplot：如何显示全部X轴标签并调整字体与旋转

要让seqiplot显示全部X轴标签、缩小字体并旋转标签，只需调整绘图边距并传递轴控制参数即可实现，修改后的完整代码如下：

data(mvad)
library(dplyr)
library(TraMineR)

mvad <- mvad %>% select(1:37)

mvad.labels <- c("employment", "further education", "higher education",
                 "joblessness", "school", "training")
mvad.scodes <- c("EM","FE","HE","JL","SC","TR")
mvad.seq <- seqdef(mvad, 15:37, states=mvad.scodes, labels=mvad.labels)

# 调整底部边距，避免旋转后的标签被画布截断
par(mar = c(8, 4, 2, 2))

# 绘制序列图并控制X轴标签显示
seqiplot(mvad.seq, withlegend=F,
         axis.args = list(
           cex.axis = 0.7,  # 将标签字体缩小至原大小的70%
           las = 2,         # 旋转标签为垂直方向（90度）
           at = 1:ncol(mvad.seq)  # 强制显示所有23个刻度位置
         ))

参数说明： #

• par(mar = c(8,4,2,2))：增大绘图区域底部边距，确保旋转后的标签不会被边缘截断。
• axis.args：传递给底层轴绘制函数的参数集合：
  • cex.axis：控制轴标签字体大小，可根据实际需求调整数值（如0.6或0.8）。
  • las=2：将X轴标签旋转为垂直方向，彻底避免标签重叠。
  • at=1:ncol(mvad.seq)：指定所有时间点的刻度位置，强制显示全部标签，替代默认的间隔显示逻辑。

内容的提问来源于stack exchange，提问作者SK77