R:广东省GDP热力图

代码：

> library(REmap)

> city<-mapNames("guangdong")        #获取城市信息

> city

[1] "清远市" "韶关市" "湛江市" "梅州市" "河源市" "肇庆市" "惠州市" "茂名市" "江门市"

[10] "阳江市" "云浮市" "广州市" "汕尾市" "揭阳市" "珠海市" "佛山市" "潮州市" "汕头市"

[19] "深圳市" "东莞市" "中山市"

> GDP<-c(1285.00,1149.98,2450.00,955.09,810.08,1970.01,3140.03,2445.60,2240.02,1256.00,710.07,18100.41,780.00,1890.01,2024.98,8003.92,910.10,1850.01,17502.99,6275.06,3010.03)        #导入2015年各市GDP数据（单位：亿元）

> city_data<-data.frame(city,GDP)

> head(city_data,n=5)

city GDP

1 清远市 1285.00

2 韶关市 1149.98

3 湛江市 2450.00

4 梅州市 955.09

5 河源市 810.08

生成图表：

> chart<-remapC(city_data,title="广东省GDP热力图(单位：亿元)",maptype="guangdong",color="blue",theme=get_theme("Sky"),maxdata=20000,mindata=1)

> chart

效果以下：

(End)