次の例を実行する
require(ascii)
mat <- matrix(c(1,11,2,12),nrow=2)
rownames(mat)<-letters[1:2]
colnames(mat)<-letters[11:12]
tab<- as.table(mat)
ascitab <- ascii(tab,digits=0,align="r")
print(ascitab,type="t2t")
次の出力が生成されます。
|| | k | l
| a | 1 | 2
| b | 11 | 12
Warning messages:
1: In rep(rownames, length = nrow(x)) :
'x' is NULL so the result will be NULL
2: In rep(colnames, length = ncol(x)) :
'x' is NULL so the result will be NULL
2 つの問題があります。
最初の二重の縦棒は正しくありません。これは 1 本の棒である必要があります。そして、警告は非常に奇妙です。この表は合理的な形式です。
printステートメントを次のように変更します
print(ascitab,type="t2t",include.rownames=TRUE,include.colnames=TRUE)
問題を解決しません。誰でも助けることができますか?
出力のキャプチャと後処理を含む不器用なソリューションを知っていますが、クリーンなソリューションを見たいと思っています。