1
2
3
4
5
6
7
8
9
10
11
12
13
|
aff_scale = list("SpatialPolygonsRescale", layout.scale.bar(), offset = c(650000,80000), scale = 10000)
aff_text1 = list("sp.text", c(650000,82000), "0", cex = .5)
aff_text2 = list("sp.text", c(660000,82000), "10 Km", cex = .5)
aff_arrow = list("SpatialPolygonsRescale", layout.north.arrow(), offset = c(660000,85000), scale = 10000)
aff_pts_r = list("sp.points", my_spatial_point, pch = 1, cex= my_tmp_rain*10, col = "Black")
aff_pts = list("sp.points", my_spatial_point, pch = 3, col = "Red", cex=0.5)
aff_shape = list("sp.polygons", my_shape, col = "Black") # c'est lui qui s'affiche derrière !!!!!
spplot(my_tmp_krige, "var1.pred",
sp.layout = list(aff_arrow, aff_text1, aff_text2, aff_scale, aff_pts, aff_pts_r,aff_shape),
main = " TITRE ",
xlim=c(550000,680000),ylim=c(70000,165000)) |
