2

我使用标准投影制作了一张地图。我猜是“墨卡托”。这是代码，

p=ggplot(output)

p=p+geom_tile(aes(x=lon,y=lat,fill=dcm))

p=p+scale_fill_gradientn("Depth of DCM (m)",colours=rgb(rgb[1:100,1],rgb[1:100,2],rgb[1:100,3]),
limits=c(15,200),labels=c(25,50,75,100,125,150,175,200),breaks=c(25,50,75,100,125,150,175,200))

p = p+guides(fill = guide_colorbar(barwidth = 0.5, barheight = 9))

p=p+layer(data=coastline.world,geom="polygon",mapping=aes(x=longitude,y=latitude))



p=p+theme(text=element_text(family="Times",size=9))

p=p+theme(legend.title = element_text(face = 'plain'))

p=p+guides(colour = guide_legend(title.hjust = 0.5))

当我尝试将投影更改为“mollweide”时

使用

p=p+coord_map("moll")

程序开始运行但从不停止。

你有什么想法？

谢谢亚历克斯

data.frame 海岸线.world 来自

library(oce)  
data(coastlineWorld)  
coastline.world=data.frame(longitude=coastlineWorld[["longitude"]],latitude=coastlineWorld[["latitude"]])

第一行输出： 

structure(list(lon = c(-180, -179.5, -179, -178.5, -178, -177.5
), lat = c(-59.5, -59.5, -59.5, -59.5, -59.5, -59.5), dcm = c(NA, 
41.4461206739867, 45.6921865291417, 48.135154847963, 48.4013604947836, 
46.9140989480546)), .Names = c("lon", "lat", "dcm"), row.names = c(NA, 
6L), class = "data.frame")
4

1 回答 1

0

可能只是数据量太大。coastline.world有超过 400K 行。我也改变了你的layer哪个geom_polygon不得不geom_points。

所以我尝试了一些统一的抽样（选择说每 100 行，取总数据的 1%）。

  newcw <- coastline.world[seq(1, nrow(coastline.world), by = 100),]

现在当我尝试

 p <- p+layer(data=newcw,geom="point",mapping=aes(x=longitude,y=latitude))
 p <- p+geom_point(data=newcw, mapping=aes(x=longitude,y=latitude))

然后coord_map, 渲染好了。

 p <- p+coord_map("moll")

这就是我得到的：

在此处输入图像描述

您可能必须修补颜色才能获得您想要的。

希望能帮助你前进。

于 2013-07-25T23:17:42.167 回答