r - 使用 maptools - R 绘制国家边界

Question

继 Joe Wheatley (http://joewheatley.net/ncep-global-forecast-system/) 的精彩帖子之后，我设法制作了一个温度全局 map 。但是，我尝试使用 maptools 包来绘制国家边界，而不是只绘制海岸线。当仅绘制东半球国家边界时，问题就来了。我应该遗漏一些我想不通的东西，仍在寻找计算器和谷歌。希望你能帮上忙。

这是我正在使用的代码(大部分来自 Joe 的帖子)

loc=file.path("ftp://ftp.ncep.noaa.gov/pub/data/nccf/com/gfs/prod/gfs.2013052100/gfs.t00z.sfluxgrbf03.grib2")
download.file(loc,"temp.grb",mode="wb")

system("wgrib2 -s temp.grb | grep :TMP: | wgrib2 -i temp.grb -netcdf TMP.nc",intern=T)
system("wgrib2 -s temp.grb | grep :LAND: | wgrib2 -i temp.grb -netcdf temp.nc",intern=T)

library(ncdf)
landFrac <-open.ncdf("LAND.nc")
lon <- get.var.ncdf(landFrac,"longitude")
lat <- get.var.ncdf(landFrac,"latitude")

temp=open.ncdf("TMP.nc")
t2m.mean <- get.var.ncdf(temp,"TMP_2maboveground")


library("fields")
library("sp", lib.loc="/usr/lib/R/site-library")
library("maptools", lib.loc="/usr/lib/R/site-library")

day="DIA"

png(filename="gfs.png",width=1215,height=607,bg="white")

rgb.palette <- colorRampPalette(c("snow1","snow2","snow3","seagreen","orange","firebrick"), space = "rgb")#colors
image.plot(lon,lat,t2m.mean,col=rgb.palette(200),main=as.expression(paste("GFS 24hr Average 2M Temperature",day,"00 UTC",sep="")),axes=T,legend.lab="o C")
data(wrld_simpl)
plot(wrld_simpl, add = TRUE)

dev.off()

这是生成的图像

这是一张全局 map ，我是否应该在 image.plot 中使用 xlim 和 ylim 来提取区域(即欧洲)

编辑:为 temp.nc 文件添加了 url

http://ubuntuone.com/29DKAeRjUCiCzLblgfSLc9

任何帮助将不胜感激，谢谢

Answer 1

数据集 wrld_simpl 在经度 [-180, 180] 上对齐，但您的网格数据显然是 [0,360]。由于您已加载 maptools，请尝试将修改后的副本添加到您的绘图中:

plot(elide(wrld_simpl, shift = c(360, 0)), add = TRUE)

还有其他工具可以像这样裁剪和移动/合并和更新数据，包括在封装栅格中的 ?rotate。这真的取决于你需要什么。

另一种图形替代方法是在 map 包中使用“world2”

library(maps)
map("world2", add = TRUE)

其中任何一个都可以完成您上面开始的情节。

这是另一个与此相关的讨论:Fixing maps library data for Pacific centred (0°-360° longitude) display