# set.seed(2)
# dd <- data.frame(lon = runif(100, min = 110, max = 117),
# lat = runif(100, min = 31, max = 37),
# value = runif(100, min = -10, max = 10))
# head(dd)
# # example
# hmap <- cnmap::getMap(code = 410000) |> sf::st_make_valid()
# grd <- points2grid_sf(dd, extent = hmap, gridsize = 0.5)
# head(grd)
Run the code above in your browser using DataLab