mapWorld <- borders("world", colour="gray50", fill="gray65") # create a layer of borders mp <- ggplot() + theme_bw()+ mapWorld+xlab("Longitude") + ylab("Latitude")+ theme(axis.text=element_text(size=16,face="bold", color="black"), axis.title=element_text(size=16,face="bold")) mp <- mp+ geom_point(data=d0 , aes(x=longitude, y=latitude), size=2, color="red") mp

这段代码使用ggplot2包创建了一个世界地图，并在地图上绘制了红色的点。首先，通过borders函数创建了一个名为mapWorld的边界层，边界的颜色为灰色，填充颜色为浅灰色。然后，使用ggplot函数创建了一个空白的绘图对象mp，并设置主题为黑白主题，添加了地图层mapWorld，并设置x轴和y轴的标签。接着，使用geom_point函数在地图上绘制了d0数据集中的经度和纬度对应的点，点的大小为2，颜色为红色。最后，通过mp来显示绘制好的地图。