打印没有行和列索引的矩阵

Question

如果我打印一个矩阵，它会在控制台中显示行和列索引。 E.g。

> print(diag(3))
     [,1] [,2] [,3]
[1,]    1    0    0
[2,]    0    1    0
[3,]    0    0    1

如何抑制列和行索引？即像这样的东西：

> print(diag(3), indices=FALSE)
1    0    0
0    1    0
0    0    1

我可以看到cwhmisc包应该包含printM函数来执行此操作according to the documentation但是当我加载cwhmisc时它不存在。此外，这似乎是你应该能够在基地R。

Answer 1

base包中的prmatrix函数可以为此工作，可以使用参数collab和rowlab：

prmatrix(diag(3), rowlab=rep("",3), collab=rep("",3))

 1 0 0
 0 1 0
 0 0 1

Answer 2

具有函数write.table

的另一种解决方案

write.table(diag(3), row.names=F, col.names=F)

您可以通过使用制表符分隔列来使其更漂亮

write.table(matrix(sample(1000,9),3,3), row.names=F, col.names=F, sep="\t")