求大神帮忙解答一下，怎样在R里把前面那幅中国地图的“鸡”变得像后一幅图里的一样——挺拔~傲娇~
前面的图是我画的，地图太扁了，调试好几天了，还是没办法。
ylim=c(18,54)、xlim=c(70,135)限制了也不好使,有的时候还出来一堆南海群岛......
画图用的代码是：
library(maps)
library(mapdata)
library(maptools)

border <- readShapePoly("bou2_4p.shp")   #含重庆的省份地图数据，我已经附加附件了
plot(border, col = "darkgray", ylim = c(18.5, 53.5), xlim=c(70,135),panel.first = grid()) #限制纬度范围，去掉了南沙群岛


其他的步骤就略了

其实就是基础问题，怎么拉伸图形，我也尝试过将y轴坐标都扩大一定倍数，不过“bou2_4p.shp”里数据太多了，不知道怎样找纬度数据。


求大家帮帮忙，感激不尽啊！
还有个问题就是怎样给这个地图添加带有渐变颜色的图例，不同颜色代表不同数值。
最好不用这种layout(matrix(c(1,1,1,1,1,2,1,1,1),3,3,byrow=TRUE), c(1.5,1.5,1), c(1.5,1,1), TRUE)语句，分区域画图，这样我没有办法去掉南海群岛。

谢谢大家了！