R画中国地图的问题 求人帮忙解答一下呀

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

border <- readShapePoly("bou2_4p.shp")   #含重庆的省份地图数据，我已经附加附件了 bou2_4p.shp.rar (414.19 KB) 本附件包括：

• bou2_4p.shx
• bou2_4p.dbf
• bou2_4p.shp

2015-4-12 15:48:48 上传

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)语句，分区域画图，这样我没有办法去掉南海群岛。

谢谢大家了！

让雄鸡（母鸡？）傲娇的办法如下：

1. mean_1=(18.5+56.5)/2
   
2. border_1=border
   
3. 
   
4. for ( i in 1:length(border@polygons)){
   
5. a = border@polygons[[i]]@Polygons[[1]]@coords[,2]
   
6. a=mean_1+1.2*(a-mean_1)
   
7. border_1@polygons[[i]]@Polygons[[1]]@coords[,2]=a}
   
8. plot(border_1, col = "darkgray", ylim = c(18.5, 56.5), xlim=c(70,135),panel.first = grid())

复制代码

就是让y轴以mean_1为中心扩展1.2倍，只是数据集的存储结构有些难搞。


图例还不是很清楚应该怎么弄。。。

尊敬的楼主，您的颜色是怎么做出来的，能否分享一下您的程序呢

太极无极 发表于 2015-4-12 21:12
尊敬的楼主，您的颜色是怎么做出来的，能否分享一下您的程序呢

只是随便加个颜色而已，想这么艳丽，col用rainbow()调色板就行了。不过我很喜欢这个包，library(RColorBrewer)吧，然后运行display.brewer.all(),会出现许多现成的调色板，按照名字调用就行了，很方便。

换个投影坐标，具体我也不是很熟悉

这个数据源的投影就是扁平的，换个数据源。