Question

有没有办法在strucplot框架中更改基于残差的图例的字体？我通过指定标签和labels_args参数中的字体，在马赛克图中创建标签，并使用serif字体创建扩展关联图。这使得图中的文本采用serif字体。我试图通过在代码的开头和结尾处调用par（family =“serif”）来制作以serif字体为基础的基于残差的图例，但这并不会使图例文本显示为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

使用mosaic()在legend_resbased()中加入字体

R strucplot residuals图例字体

2 个答案: