Traminer:带有观察次数的平均时间条形图

Traminer: Mean time barplot with number of observations

因为我对 TraMineR 还是个新手,所以我的问题对你们大多数人来说似乎微不足道。我正在用我的数据绘制平均时间图,我想在条形图上绘制在不同状态下花费的平均时间。 TramineR 中有命令吗?

在平均时间图上添加条形标签的选项已在版本 TraMineR v 2.2-3 中实现。该选项可通过 plot 方法的参数 bar.labelscex.barlaboffset.barlab 获得 seqmeant 的结果。这些参数可以作为 ... 个参数传递给 seqmtplot。在后一种情况下,当指定组时,bar.labels 应该是一个矩阵,其中每个组的标签都列在列中。

我使用 actcal 数据展示了如何在条形图上显示平均时间。该组在这里 sex,但当然可以成为您的集群。

library(TraMineR)
data(actcal)
## We use only a sample of 300 cases
set.seed(1)
actcal <- actcal[sample(nrow(actcal),300),]
actcal.lab <- c("> 37 hours", "19-36 hours", "1-18 hours", "no work")
actcal.seq <- seqdef(actcal,13:24,labels=actcal.lab)

group <- factor(actcal$sex)
blab <- NULL
for (i in 1:length(levels(group))){
  blab <- cbind(blab,seqmeant(actcal.seq[group==levels(group)[i],]))
}
seqmtplot(actcal.seq, group=group,
          bar.labels = round(blab,digits=2), cex.barlab=1.2)