在地图上绘制太平洋地区的一个方框

Question

我试图在地图上绘制一个带点的方框，但是在太平洋地区。我遇到了一些问题，因为定义盒子的点连接不好。为了更好地理解这个想法，以下是代码的一部分：

      #Definig the box
      dput(box)
      newmap <- getMap()
      m      <-plot(newmap, col = "light yellow", axes = T,asp=1)


      for (i in 1:length(box)) {

         p_names[i] <- paste("p",i,sep="")
         points(box[1,i],box[2,i], pch=16, col="grey20", cex=1)
         text(box[1,i],box[2,i], labels=as.character(p_names[i]),         col="grey20",
         cex=0.6, font=2, offset=0.5, adj=c(0,2))

       }
       grid(c="black")

情节将是这样的：

我正在使用图书馆rworldmap，但也许有更好的方法，因为我知道使用地图你可以选择中心..但是，我不知道如何添加框。

任何建议都会非常受欢迎。