Làm cách nào tôi có thể chuyển đổi dữ liệu dưới dạng lat, lon, value thành tệp raster bằng R?

Tôi có một bộ dữ liệu các giá trị trên một km lưới ở lục địa Hoa Kỳ Các cột là "vĩ độ", "kinh độ" và "quan sát", ví dụ:

"lat"    "lon"     "yield"
 25.567  -120.347  3.6 
 25.832  -120.400  2.6
 26.097  -120.454  3.4
 26.363  -120.508  3.1
 26.630  -120.562  4.4

hoặc, dưới dạng khung dữ liệu R:

mydata <- structure(list(lat = c(25.567, 25.832, 26.097, 26.363, 26.63), 
lon = c(-120.347, -120.4, -120.454, -120.508, -120.562), 
yield = c(3.6, 2.6, 3.4, 3.1, 4.4)), .Names = c("lat", 
"lon", "yield"), class = "data.frame", row.names = c(NA, -5L))

(bộ dữ liệu đầy đủ có thể được tải xuống dưới dạng csv tại đây )

Dữ liệu là đầu ra từ một mô hình cây trồng (dự định sẽ được bật) lưới 30km x 30km (từ Miguez et al 2012 ).

Làm cách nào tôi có thể chuyển đổi chúng thành tệp raster với siêu dữ liệu liên quan đến GIS như chiếu bản đồ?

Lý tưởng nhất là tệp văn bản (ASCII?) Vì tôi muốn nó độc lập với nền tảng và phần mềm.

Một số bước cần thiết:

1. Bạn nói rằng đó là lưới 1km thông thường, nhưng điều đó có nghĩa là thời gian dài không thường xuyên. Trước tiên, bạn cần chuyển đổi nó thành một hệ tọa độ lưới thông thường để các giá trị X và Y thường xuyên cách nhau.

   a. Đọc nó vào R dưới dạng khung dữ liệu, với các cột x, y, sản lượng.

   pts = read.table("file.csv",......)

   b. Chuyển đổi khung dữ liệu thành SpatialPointsDataFrame bằng gói sp và đại loại như:

   library(sp)
   library(rgdal)
   coordinates(pts)=~x+y

   c. Chuyển đổi sang hệ thống km thông thường của bạn bằng cách trước tiên cho nó biết CRS là gì và sau đó spTransform đến đích.

   proj4string(pts)=CRS("+init=epsg:4326") # set it to lat-long
   pts = spTransform(pts,CRS("insert your proj4 string here"))

   d. Nói với R rằng đây là lưới:

   gridded(pts) = TRUE

   Tại thời điểm này, bạn sẽ gặp lỗi nếu tọa độ của bạn không nằm trên một lưới thông thường đẹp.

2. Bây giờ sử dụng gói raster để chuyển đổi thành raster và đặt CRS của nó:

   r = raster(pts)
   projection(r) = CRS("insert your proj4 string here")

3. Bây giờ hãy xem:

   plot(r)

4. Bây giờ hãy viết nó dưới dạng tệp GeoTIFF bằng gói raster:

   writeRaster(r,"pts.tif")

GeoTIFF này có thể đọc được trong tất cả các gói GIS chính. Phần còn thiếu rõ ràng ở đây là chuỗi proj4 để chuyển đổi thành: đây có thể sẽ là một loại hệ thống tham chiếu UTM. Thật khó để nói mà không có thêm dữ liệu ...

Vì câu hỏi đã được trả lời lần cuối, nên có một giải pháp dễ dàng hơn nhiều bằng cách sử dụng rasterFromXYZchức năng của gói raster gói gọn tất cả các bước cần thiết (bao gồm cả đặc điểm kỹ thuật của chuỗi CRS).

library(raster)
rasterFromXYZ(mydata)