Преобразование растра в точечный шейп-файл - PullRequest
Новая
       38

Преобразование растра в точечный шейп-файл

0 голосов
/ 15 января 2020

Я пытаюсь преобразовать растровые в точечные шейп-файлы 

> library (raster)
> ras <- raster("dem.tif")
> pts = rasterToPoints(ras)
> pts
               x         y       Z
   [1,] 70.87500 38.375007  5.035302e+14
   [2,] 71.12500 38.375007  4.563356e+14
   [3,] 70.62500 38.125007  4.987732e+14
   [4,] 70.87500 38.125007  4.108542e+14
   [5,] 71.12500 38.125007  4.114788e+14
   [6,] 70.37500 37.875006  6.538783e+14
   [7,] 70.62500 37.875006  5.798219e+14
   [8,] 70.87500 37.875006  5.045395e+14
   [9,] 71.12500 37.875006  4.315951e+14
> writeOGR(p, ".", "output_name, driver="ESRI Shapefile")
Error in writeOGR(p, ".", "filename", driver = "ESRI Shapefile") : 
  inherits(obj, "Spatial") is not TRUE
> raster::shapefile(pts, "output_name.shp")
Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘shapefile’ for signature ‘"matrix"’
> shapefile(p, outfile, overwrite=TRUE)
Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘shapefile’ for signature ‘"matrix"’
>plot(pts)

enter image description here Где я ошибаюсь при преобразовании этих файлов в шейп-файл?

1 Ответ

1 голос
/ 15 января 2020

Вам нужно использовать pts = rasterToPoints(ras, spatial = TRUE), чтобы pts было SpatialPointsDataFrame. Это просто matrix (как указано в сообщении об ошибке), поэтому его нельзя экспортировать как шейп-файл.

...