Graph 图TraMineR图上的边距过大

Graph 图TraMineR图上的边距过大,graph,traminer,Graph,Traminer,我正在尝试如图所示的图形类型 在plot.new()中出现错误之前,我只能在屏幕中输入8种类型。图边距太大。就我的UI而言,我无法使图形界面更高 我正在尝试制作更多的类型,有什么方法可以做到这一点吗 这就是我正在尝试的情节 seqIplot(f3.seq,group=cl1.4fac,sortv=“from.end”,with.legend=“none”,xtlab=c(rep(18:29,each=1))错误与您使用的图形设备有关。这意味着边距没有为数字本身留出足够的位置 有几种可能的解决办法

我正在尝试如图所示的图形类型

在plot.new()中出现错误之前,我只能在屏幕中输入8种类型。图边距太大。就我的UI而言,我无法使图形界面更高

我正在尝试制作更多的类型,有什么方法可以做到这一点吗

这就是我正在尝试的情节


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

错误与您使用的图形设备有关。这意味着边距没有为数字本身留出足够的位置

有几种可能的解决办法(可以结合使用)

  • 通过
    seqplot
    函数的
    cols
    参数更改图形区域的列数

  • 减小刻度标记标签(
    cex.axis
    argument)、标题(
    cex.main
    argument)的大小并抑制轴标签

  • 抑制y轴和x轴(
    参数)

  • 更改页边距的值(
    par(mar=…)

  • 更改图形设备的默认参数,例如,使用
    pdf()
    png()
    width
    height

  • 我使用
    TraMineR
    附带的
    mvad
    数据来说明下面的前四个解决方案

    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='')
    
    库(TraMineR)
    数据(mvad)
    
    mvad.labels图形边距过宽错误与您使用的图形设备有关。这意味着边距没有为数字本身留出足够的位置

    有几种可能的解决办法(可以结合使用)

  • 通过
    seqplot
    函数的
    cols
    参数更改图形区域的列数

  • 减小刻度标记标签(
    cex.axis
    argument)、标题(
    cex.main
    argument)的大小并抑制轴标签

  • 抑制y轴和x轴(
    参数)

  • 更改页边距的值(
    par(mar=…)

  • 更改图形设备的默认参数,例如,使用
    pdf()
    png()
    width
    height

  • 我使用
    TraMineR
    附带的
    mvad
    数据来说明下面的前四个解决方案

    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='')
    
    库(TraMineR)
    数据(mvad)
    mvad标签