将瑞士坐标中的XYZ数据投影到WGS84并绘图

时间：2013-12-03 17:27:47

标签： r plot projection coordinate-transformation wgs84

我的“长期目标”是绘制瑞士的免费地形数据集（http://www.toposhop.admin.ch/de/shop/products/height/dhm25200_1），并使用包含瑞士边界的形状文件和代表R中气象站的数据点创建叠加层。

使用边框绘制shapefile并将点添加为点可以很好地工作，但是现在在许多尝试中失败的是将瑞士坐标中的地形数据集投影到WGS84，以便能够将其与边界和工作站一起绘制WGS84。

在过去的几天里，我尝试过的最佳解决方案似乎是什么：

# read xyz data:
topo=read.table("DHM200.xyz", sep=" ")
CH.topo.x= as.vector(topo$V1)
CH.topo.y= as.vector(topo$V2)
library(rgdal)
coord.topo <- data.frame(lon=CH.topo.x, lat=CH.topo.y)
coordinates(coord.topo) <- c("lon", "lat")
proj4string(coord.topo) <- CRS("+proj=somerc +lat_0=46.95240555555556+
lon_0=7.439583333333333 +k_0=1 +x_0=600000 +y_0=200000 +ellps=bessel+
towgs84=674.374,15.056,405.346,0,0,0,0 +units=m +no_defs") # CH1903 / LV03 (EPSG:21781)
CRS.new <- CRS("+init=epsg:4326")  # WGS84
coord.topo.wgs84 <- spTransform(coord.topo, CRS.new)
# this should have transformed the coordinates properly into a SpatialPoints object

# I now try to replace the old swiss coordinates by the degrees lat/lon:
topo[,1:2]=coordinates(coord.topo.wgs84)
topo=topo[order(topo$V1, topo$V2),]

# but creating a raster (that can be plotted!?)
topo.raster= rasterFromXYZ(topo, res=c(0.002516,0.00184), crs="+init=epsg:4326",
digits=5)
# returns the following error (either with or without "res" input):
# " x cell sizes are not regular"

尽管排序：这个错误是坐标转换中的舍入误差的结果吗？ R是否提供了更好的解决方案来投影和绘制terrain.colors()中的数据，并且可以将形状和点添加到图中？

为什么我直接问：数据集也可用作ESRI ASCII网格，但是我试图用瑞士坐标绘制它（对于frist概述），默认颜色为红色到黄色。我试图使用image()的{​​{1}}函数绘制它，但是无法添加点或形状。

有人可以帮忙吗？

提前致谢!!!

3 个答案:

答案 0 :(得分：1)

不幸的是，cwhmisc 包没有很好的文档记录。这就是为什么我想出了以下内容。

数据

df_chx_chy <- data.frame(chx=c(628500, 675500), chy=c(172500, 271500))

代码片段 1

library(httr)
library(jsonlite)
i <- 1
fromJSON(content(GET(paste0("http://geodesy.geo.admin.ch/reframe/lv03towgs84?easting=",df_chx_chy$chx[i], "&northing=",df_chx_chy$chy[i], "&format=json")), "text"))

输出

$easting
[1] "7.811298488115001"

$northing
[1] "46.70310278713399"

代码片段 2

library(dplyr)
df_chx_chy %>% mutate(
    y_ = (chx - 600000)/1000000,
    x_ = (chy - 200000)/1000000,
    lon = (2.6779094 +
               4.728982 * y_ +
               0.791484 * y_ * x_ +
               0.1306 * y_ * x_^2 -
               0.0436 * y_^3) * 100 / 36,
    lat = (16.9023892 +
               3.238272 * x_ -
               0.270978 * y_^2 -
               0.002528 * x_^2 -
               0.0447 * y_^2 * x_ -
               0.0140 *x_^3) * 100 / 36) %>% select(-y_, -x_)

输出

     chx    chy      lon      lat
1 628500 172500 7.811297 46.70310
2 675500 271500 8.442366 47.58985

答案 1 :(得分：0)

您可以使用rasterFromXYZ阅读您的数据，然后使用projectRaster()将此rastrer投影到所需的CRS。

答案 2 :(得分：0)

您还可以使用cwhmisc包的功能。

library(cwhmisc)
LB2YX(long, lat) # convert from long/lat to Swiss coordinates
YX2LB(yToEast, xToNorth) # convert from Swiss coordinates to long/lat
相关问题
最新问题