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)