如何避免在R中的levelplot中出现空白

我有一个3列的数据框，并相应地绘制了levelplot。然而，我的输出数据（pdf）太重了，我需要缩小它的大小。使用bash，我删除了十行中的一行（at/Users/datac.csv | awk'{if（NR%10==0）{print$0}}>/Users/new_file.csv），最终得到了带有大量空白的水平图（如预期的那样）。你知道如何增加我的积分吗？我不介意它们看起来像光栅。这是我的代码（中的数据框）和绘图：

datac=read.csv（“new_file.csv”，header=FALSE）#从csv导入
西席没有看到任何空白。好，我应该重新表述，这不是空白，而是点是小的，所以点之间有很多垂直空间。我想用更少的点来绘图，有人有想法吗？谢谢我是说，我无法进入你的阴谋。
        datac=read.csv("new_file.csv",header=FALSE) #import from csv
        x<-datac[[1]]
        y<-datac[[2]]
        sol<-datac[[3]]
        color1= colorRampPalette(c(gray(0.3),'gray','white'))
        levelplot(sol~x*y,asp=1,colorkey = FALSE,col.regions=color1)