xjdlb

聚类算法library(amap)###Kmeans聚类getwd()setwd("E://RProgramming//k-means")getwd()rm(list = ls())## a 2-dimensional examplex <- rbind(matrix(rnorm(100, sd = 0.3), ncol = 2), matrix(rnorm(100

我 的资源 聚类动画示例演示：setwd("E://RProgramming//聚类动画")library(R2SWF)library(animation)output = dev2swf({ par(mar = c(3, 3, 1, 1.5), mgp = c(1.5, 0.5, 0)) kmeans.ani()}, output = "test.swf")swf2html(o

R语言画图入门# ------------------------------------------------------------------------setwd("D://Code//RProgramming//学生成绩分析")num=seq(3115393001,3115393100)x1=round(runif(100, min=80,max=100))# round四舍五入x2

RStudio绘制中国城市密度图 源文件：密度聚类dbscan_中国城市群.Rlibrary(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=