我有关于污染物的网格化数据。每个网格由其最左侧的纬度和经度表示。我想看看这种污染物的水平如何随网格而变化。为此,我制作了一个关卡。下面显示的代码运行正常,但唯一的麻烦是绘制的污染物不会覆盖使用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")
如何获取要叠加在网格上的值?感谢。
答案 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)
)
同样,我不确定你问的是哪一个,所以请评论一下,如果你不想要的话。