#绘制3D图像
Express=read.table(“E:/atom.txt”,header=TRUE,sep =",",stringsAsFactors = FALSE,quote = “”)
library(scatterplot3d)
library(rgl)
plot3d <- with(Express, scatterplot3d(X, Y, Z, color =group,pch=16,cex.symbols = 1.2, font.lab = 2, font.axis = 2,main=“3D graph”))
plot3d <- with(Express, plot3d(X, Y, Z, col=group,pch=16,main=“3D graph”))
#首先加载软件包
library(fpc)
#设簇个数在2到8之间取值
for (i in 2:8){
#K聚类结果存于result变量
result <- kmeans(Express,i)
#求出聚类评价统计量
stats=cluster.stats(dist(Express), resultKaTeX parse error: Expected 'EOF', got '#' at position 12: cluster) #̲将结果存入X x[i]=s…avg.silwidth
}
library(fpc)
dis <- dist(Express)^2
res <- kmeans(Express,6)
sil <- silhouette (res$cluster, dis)
library (cluster)
library (vegan)
dis <- vegdist(Express)
res <- pam(dis,3)
sil <- silhouette (res$clustering,dis)
Express=Express[,1:2]
ncol(Express)
如何安装无法找到R语言
install.packages("tensorflow", repos = "http://cran.rstudio.com/")
install.packages("magrittr", repos = "http://cran.rstudio.com/")
安装Rtools
options("repos"=c(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
install.packages('installr')
library(stringr)
library(installr)
install.Rtools()