图像中的 r 轴标签

我需要按呼叫中心的空间位置绘制指标图表。 我用 R 写了一个小例子：

tt<-data.frame(a1=c(0.4,.5,.5,.7),a2=c(.5,.6,.7,.8), a3=c(.8,.7,.9,.8))
row.names(tt)<-paste("L", 1:4, sep='')
tt<-as.matrix(tt)
tt

所以我的矩阵是：

> tt
    a1  a2  a3
L1 0.4 0.5 0.8
L2 0.5 0.6 0.7
L3 0.5 0.7 0.9
L4 0.7 0.8 0.8

I tried:

palette <- colorRampPalette(c('#f0f3ff','#0033BB'))(256)
library(fields)
image.plot(t(tt[rev(order(row.names(tt))),]),col = palette, axes=F ,
       lab.breaks=NULL)

我必须对矩阵进行转置和重新排序，因为我想要你在表中读取它的方式。

所以我得到：

我需要在每个方块旁边添加行名称和列名称。例如，左上角的正方形应在左侧具有“L1”，在顶部具有“a1”。

我还想添加每个方块中的值。

我尝试了 axis() 但得到了错误的结果。我在 R 中做图表还很陌生，所以任何帮助将不胜感激。

The axis命令似乎没有在图像外部绘制标签，即使使用outer争论。

但是，如果您使用image函数（与add=TRUE) after image.plot

image.plot(t(tt[rev(order(row.names(tt))),]),col = palette, axes=FALSE, 
                                                          lab.breaks=NULL)

# axis labels
image(t(tt[rev(order(row.names(tt))),]), col = palette, axes=FALSE, add=TRUE)
axis(3, at=seq(0,1, length=3), labels=colnames(tt), lwd=0, pos=1.15)
axis(2, at=seq(1,0, length=4), labels=rownames(tt), lwd=0, pos=-0.25)

# add values
e <- expand.grid(seq(0,1, length=3), seq(1,0, length=4))
text(e, labels=t(tt))