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

I have a dataset

我有一个数据集

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))
test<-data.frame(e