r добавить точки и метки точек на график уровня - PullRequest
1 голос
/ 03 августа 2020

Я хотел бы нанести точки и метки точек поверх графика уровней. Вот простой пример.

library(raster)
library(rasterVis)
library(latticeExtra)
r <- raster(matrix(runif(100), 10))
crs(r) <- "+proj=longlat +datum=WGS84 +no_defs"
p = c("one", "-2", "three", "four", "five")
lat = c(.2, .4, .6, .8, .9)
lon= c(.2, .4, .6, .8, .9)
df <- data.frame(lat = lat, lon= lon, z = p)
coordinates(df) <- ~lon+lat
crs(df) <- crs(r)

С помощью raster r и SpatialPointsDataFrame df я пробовал различные модификации приведенной ниже структуры, в том числе с и без {} вокруг функции внутри

levelplot(r) +
  latticeExtra::layer({panel.points(df, size=3)})

levelplot(r) +
  latticeExtra::layer({sp.points(df, size=3)})

levelplot(r) +
latticeExtra::layer({points(x = df$lon, y = df$lat, pch=20)})
...