R：绘制值网格

Question

我有这个简单的可重现代码，可以生成一些值：

total=0
X=1
for(i in 1:3){
Y=0.1
index=1
index1=1
value=0
values=0
for(i in 1:15){
  value[[index]]=10+X*Y+i
  if(index%%5==0){
    values[[index1]]=mean(value)
    index1=index1+1;
    index=0
    value=0
    Y=Y+1
  }
  index=index+1;
}
total=c(total,values)
X=X+1
}
total=total[-1]

对于

X=1和Y=0.1它会生成13.1

X=1和Y=1.1它会生成19.1

X=1和Y=2.1它会生成25.1

X=2和Y=0.1它会生成13.2

X=2和Y=1.1它会生成20.2

X=2和Y=2.1它会生成27.2

X=3和Y=0.1它会生成13.3

X=3和Y=1.1它会生成21.3

X=3和Y=2.1它会生成29.3

然后我得到总共9个值，我想要做的是将它们绘制在网格中。它应该是这样或类似的东西：

X可以位于顶部或底部，它不重要或Y，我想对它们进行着色，使得较小的值具有较浅的颜色而较大的值具有较暗的颜色。

有没有办法在R中做这个情节？我非常感谢任何提示。我不知道如何以最简单的方式做到这一点。我可以绘制一个空格子，但我不知道如何添加线条和值。是否有任何包快速做类似的事情？

或者，如果有人可以建议我另一种类型的情节，我可以用它们的值绘制X和Y.

我非常感谢任何建议。

Answer 1

尝试这样的事情并使用颜色：

plot_table <- function(d, colors, marginColor,main="", text.cex=1.0){
  plot(c(-1,ncol(d)),c(0,nrow(d)+1), type="n", xaxt="n", yaxt="n", xlab="",ylab="",main=main, bty="n")

  for (c in 1:ncol(d)) {
    rect(c-1, nrow(d), c, nrow(d) + 1, col=marginColor)
    text(c-.5,nrow(d) +.5,colnames(d)[c], cex=text.cex)
  }
  for (r in 1:nrow(d)) {
    rect(-1, r-1, 0, r, col=marginColor)
    text(-.5, r-.5,rownames(d)[nrow(d) - r + 1], cex=text.cex)
  }

  for (r in 1:nrow(d))
    for (c in 1:ncol(d)) {
      rect(c-1, r-1, c, r, col=colors[nrow(d) - r + 1,c])
      text(c-.5,r-.5,d[nrow(d) - r + 1,c], cex=text.cex)
    }
}
d <- matrix(c(1,2,3,4,5,6,7,8,9) , nrow = 3)
colnames(d) <- c("1","2","3")
rownames(d) <- c("1","2","3")

colors <- matrix(sapply(d, function(x) ifelse(x < 20, "purple","green")),ncol=ncol(d))

par(mar=c(0,0,1,0))
plot_table(d, colors, "gray",main="returns", text.cex=0.8)