R（Kmeans绘制地形图）

setwd("your path")
library(R2SWF)
library(animation)

data<-read.csv("citycoordinate.csv")
# View(data)
x<-data$东经
# View(x)
y<-data$北纬

output = dev2swf({
  par(mar = c(3, 3, 1, 1.5), mgp = c(1.5, 0.5, 0))
  # par(x,y)
  kmeans.ani(x=cbind(x,y),centers = 4)
}, output = "test.swf")
swf2html(output)

数据

提取码：rqa8