Eine Matrix zu einem Plot hinzufügen?

Question

Gibt es trotzdem eine Tabelle zu einem Plot hinzuzufügen. Nehmen wir an, dass ich die Handlung unten haben:

curve(dnorm, -3, +4) 

Nun Ich mag eine Matrix unter dem Grundstück hinzuzufügen:

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

Mein Ziel? Ich schreibe eine Plot-Funktion, die nicht nur einen Plot erstellt, sondern auch eine Matrix mit den Informationen zeigt, an denen ich interessiert bin.

Bitte sehen Sie sich das beigefügte Bild an, um zu sehen, was ich meine. Ich schätze Ihre Hilfe sehr.

Answer 1

Es gibt wahrscheinlich bessere Möglichkeiten, dies zu tun, aber eine Option könnte eines der Pakete zu verwenden, dass „Plots“ Matrizen und Datenrahmen, wie die "gplots" package.

Hier ist ein sehr einfaches Beispiel (Sie können wahrscheinlich dies für viel feinere Kontrolle über das endgültige Layout anpassen).

# 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) 

Das Ergebnis:

Sie auch layout() statt par(mfrow...) verwenden können, wenn Sie ein wenig mehr kreativ mit der Platzierung Ihrer Plots erhalten möchten. Zum Beispiel:

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

Answer 2

Paket plotrix bietet Funktion addtable2plot.

Beispiel aus der Hilfedatei:

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") 

Edit: Legen Sie die Tabelle in einem neuen Grundstück es unter Ihrem Grundstück zu platzieren.

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")