プロットに行列を追加しますか？

Question

プロットにテーブルを追加する方法はありますか？私は下記のプロットがあるとします。

curve(dnorm, -3, +4) 

を今私は、プロットの下にマトリックスを追加したい：

testMat <- matrix(1:20, ncol = 5) 

私の目標は？私はプロットを作成するだけでなく、プロットの下に興味のある情報を含む行列も表示するプロット関数を書いています。

私が何を意味するのかを見るには添付の図を参照してください。 本当にありがとうございます。

Answer 1

はこれを行うには、おそらくより良い方法がありますが、一つの選択肢は"gplots" packageのように、パッケージという「プロット」行列やデータフレームのいずれかを使用することであるかもしれません。

これは非常に裸の例です（これをカスタマイズして、最終レイアウトをより細かく制御できます）。

# Some sample data 
testMat <- matrix(1:20, ncol = 5) 
testMatDF <- as.data.frame(testMat) 
names(testMatDF) <- c("Hey there", "Column 2", 
         "Some * Symbols", "And^More", 
         "Final Column") 
rownames(testMatDF) <- paste("Group", 1:4) 

# Load the package 
library(gplots) 
# Set par for plotting a three-row plot 
par(mfrow = c(3, 1)) 
curve(dnorm, -3, +4) 
textplot(testMat) 
textplot(testMatDF) 

結果：

あなたのプロットの配置をもう少し創造的な取得したい場合は、layout()代わりのpar(mfrow...)を使用することができます。たとえば、次の機能を提供してaddtable2plotplotrix

layout(matrix(c(1, 1, 2, 3, 3, 3), 
       2, 3, byrow = TRUE)) 
curve(dnorm, -3, +4) 
textplot(testMat) 
textplot(testMatDF) 

Answer 2

パッケージ。

library(plotrix) 
testdf<-data.frame(Before=c(10,7,5),During=c(8,6,2),After=c(5,3,4)) 
rownames(testdf)<-c("Red","Green","Blue") 
barp(testdf,main="Test addtable2plot",ylab="Value", 
    names.arg=colnames(testdf),col=2:4) 
# show most of the options 
addtable2plot(2,8,testdf,bty="o",display.rownames=TRUE,hlines=TRUE, 
       title="The table") 

編集：ヘルプファイルから

例 、あなたのプロットの下にそれを置くための新しいプロットにテーブルを置きます。

library(plotrix) 

layout(matrix(c(1,2), 2, 1, byrow = TRUE), 
     widths=c(1,1), heights=c(2,1)) 


testdf<-data.frame(Before=c(10,7,5),During=c(8,6,2),After=c(5,3,4)) 
rownames(testdf)<-c("Red","Green","Blue") 
barp(testdf,main="Test addtable2plot",ylab="Value", 
    names.arg=colnames(testdf),col=2:4) 

plot.new() 
addtable2plot(0,0,testdf,bty="o",display.rownames=TRUE,hlines=TRUE, 
       title="The table")