数据挖掘之密度聚类---RStudio绘制中国城市密度图

RStudio绘制中国城市密度图
源文件：密度聚类dbscan_中国城市群.R

library(cluster)library(fpc)city <- read.csv("中国城市坐标.csv")x <- city[,c(3,2)]ds <- dbscan(x, 2)#ds <- dbscan(x, 2,3)#ds <- dbscan(x,1,3)dsstr(ds)#par(bg="grey40")plot(ds, x)

---

数据源是：中国城市坐标.csv
下载链接：中国城市坐标.csv
城市 北纬 东经
香港 22.3 114.16
澳门 22.2 113.54
台北 25.04 121.51
高雄 22.62 120.27
南昌 28.67 115.89
抚州 27.99 116.36
宜春 27.29 114.37
景德镇 29.29 117.2
郑州 34.76 113.65
开封 34.79 114.33
安阳 36.1 114.32
洛阳 34.68 112.44
新乡 35.31 113.85
商丘 34.44 115.63
三门峡 34.78 111.18
武汉 30.57 114.28
黄石 30.2 115.08
长沙 28.2 112.97
衡阳 26.89 112.61
岳阳 29.38 113.09
湘潭 27.84 113.15
株州 27.84 113.15
合肥 31.86 117.27
淮南 32.66 117.02
蚌埠 32.95 117.36
安庆 30.5 117.03
杭州 30.25 120.16
宁波 29.87 121.53
温州 28 120.64
衢州 28.97 118.86
湖州 30.87 120.09
绍兴 29.99 120.58
舟山 30.2 122
金华 29.11 119.64
福州 26.07 119.3
厦门 24.45 118.08
泉州 24.91 118.58
漳州 24.52 117.65
南京 32.05 118.77
南通 32.02 120.84
徐州 34.26 117.17
常州 31.77 119.94
镇江 32.2 119.43
扬州 32.39 119.42
无锡 31.58 120.29
常熟 31.64 120.73
苏州 31.31 120.61
泰州 32.48 119.89
长春 43.88 125.31
吉林 43.86 126.55
延吉 42.91 129.51
白城 45.62 122.81
呼和浩特 40.81 111.65
包头 40.59 109.97
沈阳 41.79 123.41
抚顺 41.86 123.9
锦州 41.12 121.14
大连 38.92 121.57
本溪 41.29 123.74
鞍山 41.12 122.98
丹东 40.13 124.36
阜新 42.02 121.65
哈尔滨 45.73 126.61
齐齐哈尔 47.35 123.93
鸡西 45.29 130.95
大庆 46.61 124.98
牡丹江 44.59 129.58
北极村 53.48 122.36
佳木斯 46.82 130.34
济南 36.66 116.97
青岛 36.08 120.32
烟台 37.54 121.36
枣庄 34.86 117.54
淄博 36.79 118.06
潍坊 36.71 119.08
北京 39.9 116.5
上海 31.24 121.48
天津 39.15 117.2
重庆 29.54 106.52
石家庄 38.04 114.49
承德 40.96 117.92
邯郸 36.6 114.46
保定 38.86 115.47
唐山 39.62 118.18
秦皇岛 39.93 119.58
张家口 40.81 114.87
廊坊 39.52 116.68
邢台 37.06 114.49
太原 37.89 112.55
榆次 37.68 112.74
大同 40.09 113.28
长治 36.19 113.1
邵阳 27.25 111.46
广州 23.13 113.24
湛江 21.19 110.38
茂名 21.67 110.89
汕头 23.35 116.66
佛山 23.04 113.11
潮州 23.67 116.64
中山 22.53 113.35
揭阳 23.53 116.34
深圳 22.55 114.09
江门 22.58 113.07
东莞 23.04 113.71
南宁 22.83 108.31
梧州 23.48 111.31
柳州 24.32 109.36
桂林 25.29 110.26
成都 30.67 104.07
宜宾 28.76 104.6
绵阳 31.47 104.7
内江 29.58 105.04
泸州 28.9 105.43
自贡 29.37 104.76
乐山 29.57 103.74
西昌 29.9 102.25
贵阳 26.57 106.7
都匀 26.25 107.5
遵义 27.71 106.91
安顺 26.25 105.92
昆明 25.05 102.7
个旧 23.37 103.14
下关 25.59 100.2
开远 23.72 103.24
丽江 23.58 101.99
西安 34.27 108.88
宝鸡 34.38 107.13
兰州 36.11 103.6
玉门 40.28 96.99
银川 38.46 106.27
石嘴山 39.02 106.36
西宁 36.62 101.76
格尔木 36.42 94.89
拉萨 29.65 91.13
乌鲁木齐 43.79 87.59
喀什 39.46 75.97
海口 20.04 110.34
三亚 18.24 109.5

---

运行结果：

其中可以使用：

setwd(“E://RProgramming”)
设置Rstudio的默认工作路径，之后，可以单步Run程序。