Levelplot未正确绘制,值未覆盖在网格上

时间:2013-11-06 17:00:23

标签: r lattice levelplot

我有关于污染物的网格化数据。每个网格由其最左侧的纬度和经度表示。我想看看这种污染物的水平如何随网格而变化。为此,我制作了一个关卡。下面显示的代码运行正常,但唯一的麻烦是绘制的污染物不会覆盖使用abline制作的网格。虽然我已经指定了x和y的极限截止值,但是这些值是在这些截止值之前绘制的。

    library(lattice)
    library(maptools)
    imap = readShapeSpatial("IND_adm3")
    pdf("trial2.pdf",width=11, height=8)
    levelplot(surface_aod~longitude+latitude,data=s.data,
                  panel = function(...){
                  panel.levelplot(...)
                  panel.abline(v=(71:88),col="dark red")              
                             panel.abline(h=(17:31),col="dark red")    
                   sp.polygons(imap)         
                     }, 
   col.regions = heat.colors(100),aspect="iso", region=TRUE,scales=list(x=list(at=seq(from=71,to=88, by=1)), y=list(at=seq(from=17,to=31,   by=1)),cex=.7, alternating=3),xlim=c(70,90), ylim=c(16,32))
   dev.off()  

以下是我的数据片段。

 dput(head(s.data))
 structure(list(latitude = c(17L, 18L, 19L, 19L, 20L, 21L), longitude = c(80L, 
 82L, 80L, 81L, 82L, 75L), surface_aod = c(0.2652681, 0.0040855, 
 0.2032517, 0.0929442, 0.1194997, 0.3600747)), .Names = c("latitude", 
 "longitude", "surface_aod"), row.names = c(NA, 6L), class = "data.frame")

如何获取要叠加在网格上的值?感谢。

1 个答案:

答案 0 :(得分:1)

解释1)(如果问题是您没有看到网格值): 我认为您只需要更改面板功能中的顺序:

panel = function(...){
                 # panel.levelplot(...) # insead of marking up 
                 # on top of the plotted values
                   sp.polygons(imap) 
                   panel.levelplot(...)   
                   panel.abline(v=(71:88),col="dark red")              
                   panel.abline(h=(17:31),col="dark red")         
                     }

如果你不希望网格线覆盖你的vales,那么将panel.levelplot(...)移到最后......你明白了。

解释2)(如果问题是网格值居中而不是与左下角的长条对齐:

# shift the long lat to the cell center. In this case, 
# the centroid is convenetly, .5 up
# and .5 over, so you can do it in-line:
levelplot(surface_aod~I(longitude+.5)+I(latitude+.5),data=s.data,
        panel = function(...){
            panel.levelplot(...)
            panel.abline(v=(71:88),col="dark red")              
            panel.abline(h=(17:31),col="dark red")    
            #sp.polygons(imap)         
        }, 
        col.regions = heat.colors(100),
        aspect="iso", 
        region=TRUE,
        scales=list(x=list(at=seq(from=71,to=88, by=1)), 
                y=list(at=seq(from=17,to=31, by=1)),
                cex=.7, 
                alternating=3),
        xlim=c(70,90), 
        ylim=c(16,32)
)

同样,我不确定你问的是哪一个,所以请评论一下,如果你不想要的话。