TraMineR图上的图形边距太大

Question

我试图像下面所示的那样绘制类型，http://traminer.unige.ch/preview-typology.shtml

在得到错误Error in plot.new() : figure margins too large之前，我只能在屏幕上容纳8种类型。这就是我的UI，我不能让图形界面更高。

我在尝试制造更多的类型，有什么办法可以做到吗？

这就是我想做的阴谋。

seqIplot(f3.seq, group = cl1.4fac, sortv = "from.end",with.legend = "none", xtlab=c(rep(18:29, each = 1)))

Answer 1

“图形边距太宽”错误与您正在使用的图形设备有关。这意味着，页边距没有为数字本身留下足够的位置。

有几种可能的解决办法(可能结合在一起)。

1. 通过seqplot函数的cols参数更改图形区域的列数。

1. 减小了勾标标签(cex.axis参数)、标题(cex.main参数)和轴标签的大小。

1. 抑制y和x轴(axes和yaxis参数)。

更改边距(par(mar=...)).的值的

更改图形设备的默认参数的png().

• ，例如播放pdf()或height的width和height值

我使用mvad随TraMineR附带的数据演示了下面的前四种解决方案。

library(TraMineR)
data(mvad)
mvad.labels <- c("employment", "further education", "higher education", 
                 "joblessness", "school", "training")
mvad.scode <- c("EM", "FE", "HE", "JL", "SC", "TR")
mvad.seq <- seqdef(mvad[, 17:86], states = mvad.scode,
                   labels = mvad.labels, xtstep = 6)

diss <- seqdist(mvad.seq, method="LCS")
mvad.clus <- hclust(as.dist(diss), method="ward.D")
k <- 9
mvad.cl <- cutree(mvad.clus,k=k)

## changing text size and number of columns of graphical area   
seqdplot(mvad.seq, group=mvad.cl, border=NA, cols=3, 
         cex.axis=.5, cex.main=0.6, ylab='', xlab='')

​

​

## default margins are: par(mar=c(5, 4, 4, 2) + 0.1)
## setting 0 margins except for top
opar <- par(mar=c(0, 0, 2, 0) + 0.1) 
seqdplot(mvad.seq, group=mvad.cl, border=NA,  
         axes=FALSE, yaxis=FALSE)
par(opar) ## resetting default mar

​

​