Thêm ma trận vào ô?

Question

Có cách nào để thêm bảng vào ô không. Giả sử rằng tôi có cốt truyện dưới đây:

curve(dnorm, -3, +4) 

Bây giờ tôi muốn thêm một ma trận dưới cốt truyện:

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

Mục tiêu của tôi? Tôi đang viết một chức năng cốt truyện không chỉ tạo ra một âm mưu, nhưng nó cũng cho thấy một ma trận bao gồm cả thông tin mà tôi quan tâm bên dưới cốt truyện.

Vui lòng xem ảnh đính kèm để xem ý tôi là gì. Tôi thực sự đánh giá cao sự giúp đỡ của bạn.

Answer 1

Có nhiều cách có lẽ tốt hơn để làm điều này, nhưng một lựa chọn có thể sử dụng một trong các gói "âm mưu" ma trận và khung dữ liệu, như "gplots" package.

Đây là một ví dụ rất trần (bạn có thể tùy chỉnh điều này để kiểm soát tốt hơn nhiều so với bố cục cuối cùng).

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

Kết quả:

Bạn cũng có thể sử dụng layout() thay vì par(mfrow...) nếu bạn muốn nhận được sáng tạo hơn một chút với các vị trí của lô của bạn. Ví dụ:

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

Answer 2

Gói plotrix cung cấp chức năng addtable2plot.

Ví dụ từ tập tin giúp đỡ:

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: Đặt bảng trong một âm mưu mới để đặt nó bên dưới âm mưu của mình.

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