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 ユーザーです。どんな助けでも大歓迎です。