¿Agregar una matriz a un diagrama?

Question

¿Hay alguna forma de agregar una tabla a un gráfico? Supongamos que tengo el diagrama a continuación:

curve(dnorm, -3, +4) 

Ahora me gustaría añadir una matriz por debajo de la trama:

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

Mi objetivo? Estoy escribiendo una función de trama que no solo crea una trama, sino que también muestra una matriz que incluye la información que me interesa debajo de la trama.

Por favor, vea la imagen adjunta para ver lo que quiero decir. Realmente aprecio tu ayuda.

Answer 1

probablemente hay mejores maneras de hacer esto, pero una opción podría ser el uso de uno de los paquetes que "parcelas" matrices y tramas de datos, al igual que el "gplots" package.

Aquí hay un ejemplo muy simple (probablemente pueda personalizar esto para un control mucho más fino sobre el diseño final).

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

El resultado:

También se puede utilizar en lugar de layout()par(mfrow...) si se quiere conseguir un poco más creativo con la colocación de sus parcelas. Por ejemplo:

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

Answer 2

paquete plotrix proporciona la función de addtable2plot.

Ejemplo del archivo de ayuda:

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

Editar: puso la mesa en una nueva parcela para colocarlo debajo de su trama.

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