xjdlb

聚类算法library(amap) ###Kmeans聚类 getwd() setwd("E://RProgramming//k-means") getwd() rm(list = ls())## a 2-dimensional example x <- 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) ds str(ds) #par(bg=