是否可以使用 TraMineR 和 R 基础图制作带有图案填充的图？

Question

在此处输入图像描述12 在发布序列分析或通常具有许多分类状态的图时的一个常见问题是它们不容易转移到黑白纸质出版物。有一些工具，例如Colorbrewer，可以帮助您对灰度颜色做出明智的决定。尽管如此，如果调色板超过 5 个或更多的灰色阴影，结果将不能令人满意。因此，在这些情况下，将图案填充添加到某些图形区域会非常有帮助（尽管著名的 Edward Tufte 不建议这样做）。

是否可以使用 R 基础图形的图案填充功能或基础图形的扩展来向TraMineRgraphs 添加填充图案？

这是一个序列索引图的小例子：

library(TraMineR)

library(RColorBrewer)

## Load example dataset with 8 sequence states 
data(biofam)

## Define sequence objects 
biofam.lab <- c("Parent", "Left", "Married", "Left+Marr",
                "Child", "Left+Child", "Left+Marr+Child", "Divorced")
biofam.seq <- seqdef(biofam, 10:25, labels=biofam.lab)

## Example plot in colors
seqiplot(biofam.seq, cex.legend=.7)

## Example plot in greys for b/w publication
seqiplot(biofam.seq, cex.legend=.7, cpal=brewer.pal(8, "Greys"))

Answer 1

在 cmets 之后，我想出了这个图形仍然可以改进的“解决方案”。不幸的是，我也无法覆盖图例，因此它们仍然需要一些工作。如果有人有想法，我会很高兴！？

## Define smaller black/grey palette, delete almost white tones
greys <- c("black", "black", "black", "black", brewer.pal(5, "Greys")[2:5])

## Example plot using density and overwriting angle options
par(mar=c(1,2,1,1))
layout(matrix(c(1,2), 2, 1, byrow = TRUE), heights=c(2,1))
seqiplot(biofam.seq, withlegend=FALSE,
         cpal=greys,
         density=c(20, 20, 20, 20, -1, -1, -1, -1), 
         angle=c(45, 90, 45, 0, 0, 0, 0, 0))
seqiplot(biofam.seq, withlegend=FALSE,
         cpal=greys,
         density=c(20, 20, 20, 20, -1, -1, -1, -1), 
         angle=c(45, 90, 135, 0, 0, 0, 0, 0),
         add=TRUE)
         # Different angle for third state creates grid instead of patterns
seqlegend(biofam.seq, pos="center", ncol=3, fontsize=.7,
          cpal=greys,
          density=c(20, 20, 20, 20, -1, -1, -1, -1), 
          angle=c(45, 90, 45, 0, 0, 0, 0, 0))
seqlegend(biofam.seq, pos="center", ncol=3, fontsize=.7,
          cpal=greys,
          density=c(20, 20, 20, 20, -1, -1, -1, -1), 
          angle=c(45, 90, 135, 0, 0, 0, 0, 0))
          # Draws an additional legend instead of overwriting the first