別の変数の合計内にある 2 つの因子のクロス テーブルを作成しています
b<-xtabs(utib~qpl+i , data=data )
これにより、次のようなテーブルが得られます
<=2.5 2.5-5 5-10 10-50 50-150 150-250 >250 NA
aaaa 3231 211 64 10 1 0 0 32
bbbbbbbbb 442 78 7 3 0 0 0 5
cccccc 6462 466 76 6 0 0 0 157
「テーブルクラス」を保持するために必要な各列の合計を最後の行に追加する必要があります。これは、コードを使用してエクスポートする必要があるためです。
library(PerformanceAnalytics))
win.metafile(file)
PerformanceAnalytics:::textplot(c)
dev.off()