如何绘制填充轮廓，z轴是一个因素

Question

我有一个数据集

test<-data.frame(expand.grid(x=seq(0.01,1,0.01), y=seq(0.01,1,0.01)))
test$z<-c(rep(1,2500),rep(2,2500),rep(3,2500),rep(4,2500))

（x，y）定义笛卡尔坐标。我想用xlim=ylim=c(0,1)绘制一个填充的等值线图，颜色为z（4个等级的因子）。

我能做到：

plot(test$x, test$y, col=test$z, pch=16)但看起来并不好。

这个例子看起来很糟糕但在我的数据中很有意义。我熟悉akima::interp和filled.contour()，但我不希望任何插值和z不是连续的而是一个因素。

请您为我的数据推荐一个适当且令人愉快的可视化设置？我更喜欢基本图形。

Answer 1

您可以使用image例如：

image(outer(seq(0.01,1,0.01),seq(0.01,1,0.01),
            FUN=function(x,y)test$z))

我认为你可以使用raster包来更好地处理这些情节。