R strucplot残差图例字体

Question

有没有办法在 strucplot 框架中更改基于残差的图例的字体？ 我通过在 labeling 和 labeling_args 参数中指定字体，在马赛克图和扩展关联图中创建了带有衬线字体的标签。 这使得图中的文本采用衬线字体。 我也尝试通过在代码的开头和结尾调用 par(family="serif") 来制作衬线字体中基于残差的图例，但这不会使图例文本成为衬线。

我的数据是一个带有行名和列名的 6x3 数组：

   names<-c("A", "B", "C", "D", "E")
   y<-c(340, 37, 110, 17, 71)
   z<-c(720, 14, 6, 141, 120)
   x<-data.frame(names, y, z, row.names=TRUE); x
   attach(x)
   library(vcd)

我正在使用的代码是：

   op<-par(family="serif")
   my.largs<-list(gp_labels=gpar(fontsize=12, fontfamily="serif"), gp_varnames=gpar(fontsize=12, fontfamily="serif", fontface="italic"))

   names(dimnames(x))<-c("Name1", "Name2")
   mosaic(t(x), gp=shading_Friendly, compress=FALSE, gp_text=gpar(fontsize=12, fontfamily="serif"), labeling=labeling_values, labeling_args=my.largs)
   par(op)

我在 Mac OS X 10.6 上使用 Rstudio（版本 0.97.551）到 R（版本 2.14.0）。 我是一个相对缺乏经验的 R 用户。 任何帮助，将不胜感激。

Answer 1

我还尝试通过诸如legend()、legend_args()和legend_resbased()之类的参数来指定字体，但没有奏效。 vcd 包的作者告诉我，目前无法像现在一样为 vcd 图指定残差图例的字体，但他将尝试在即将发布的版本中添加这样的参数。

Answer 2

现在使用legend_resbased()将字体合并到mosaic()