R strucplot 残差图例字体答案

【问题标题】：R strucplot residuals legend fontR strucplot 残差图例字体
【发布时间】：2013-08-15 04:45:34
【问题描述】：

有什么方法可以改变 strucplot 框架中基于残差的图例的字体？通过在 labeling 和 labeling_args 参数中指定字体，我在马赛克图中创建了标签，并使用 serif 字体创建了扩展关联图。这使得图中的文本是衬线字体。我也尝试通过在代码开头和结尾调用 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 用户。任何帮助将不胜感激。

【问题讨论】：

请让您的示例可重现，我们不知道 x.matrix 是什么样的，并且需要栅格和网格包
感谢您的回复，并道歉 - 我已编辑原始问题以使示例可重现。

标签： r legend

【解决方案1】：

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

【讨论】：

【解决方案2】：

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

【讨论】：