在绘图中添加矩阵?

时间:2012-10-09 08:26:21

标签: r plot

无论如何都要在剧情中添加一张桌子。假设我有以下情节:

curve(dnorm, -3, +4)

现在我想在情节下面添加一个矩阵:

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

我的目标?我正在编写一个绘图函数,它不仅创建了一个绘图,而且还显示了一个矩阵,其中包含我在绘图下面感兴趣的信息。

请参阅附图了解我的意思。 我非常感谢你的帮助。

enter image description here

2 个答案:

答案 0 :(得分:7)

可能有更好的方法可以做到这一点,但一种选择可能是使用其中一个“绘制”矩阵和数据框的包,例如"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)

结果:

enter image description here

如果您希望通过放置图表获得更多创意,也可以使用layout()代替par(mfrow...)。例如:

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

enter image description here

答案 1 :(得分:7)

plotrix提供了函数addtable2plot

帮助文件中的示例:

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