R ggplot2结合了geom_tile和coord_map（“moll”）

Question

我使用标准投影制作了地图。我猜这是“mercator”。 这是代码，

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 coastline.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")

Answer 1

可能只是数据量过大。 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")

这就是我得到的：

你可能不得不修改颜色以获得你想要的东西。

希望能帮助你前进。