R 绘制颜色由一系列值给定的数据点

我有下面的矩阵

> mdat <- matrix(c(0.25,0.45,0.3, 0.75,0.15,0.62,0.40,0.90,1, 0.45,0.15,0), nrow = 4, ncol = +3, byrow = TRUE)
> mdat
     [,1] [,2] [,3]
[1,] 0.25 0.45 0.30
[2,] 0.75 0.15 0.62
[3,] 0.40 0.90 1.00
[4,] 0.45 0.15 0.00

>mdat-mdat
[,1] [,2] [,3]
[1,] 0.25 0.45 0.30
[2,] 0.75 0.15 0.62
[3,] 0.40 0.90 1.00
[4,] 0.45 0.15 0.00

我需要用pch=22（正方形）来绘制它，但是正方形应该根据以下内容着色：
如果数据点位于（0.0,0.25）中，则为红色 橙色，如果数据点位于（0.26,0.50） 如果数据点为蓝色（0.51,0.75）

---

如果（0.76,1.00）中的数据点为绿色，则使用

findInterval

生成用于从颜色值向量中拾取颜色的索引：

plot(rep(1:4, 3), mdat, pch=22, 
                   col=c("red","orange","blue")[findInterval(mdat, c(0,.25,.5,.75))])