根据基站定位数据商圈分析上机报告.docxVIP

基于基站定位数据的商圈分析上机报告 1数据读取及其标准化 setwd(E:/数据处理) Data=read.csv(./business_circle.csv,header=T,encoding=utf-8) colnames(Data)=c(number,x1,x2,x3,x4) attach(Data) y1=(x1-min(x1))/(max(x1)-min(x1)) y2=(x2-min(x2))/(max(x2)-min(x2)) y3=(x3-min(x3))/(max(x3)-min(x3)) y4=(x4-min(x4))/(max(x4)-min(x4)) standardized=data.frame(Data[,1],y1,y2,y3,y4) write.csv(standardized,./standardizedData.csv,row.names=TRUE) 2 模型构建 2.1 层次聚类 library(ggplot2) Data=read.csv(./standardizedData.csv,header=F) Data1=data.frame(y1,y2,y3,y4) attach(Data1) dist=dist(Data1,method=euclidean) hc1-hclust(dist,ward.D2) plot(hc1) plot(h