apply(X, 2, as.numeric) 试试看   好像你read.table读入的数值是字符型？ 查看一下。如果是就先要转化为numeric类型。

十分感谢！又有新问题了，麻烦给指点

> X<-read.table("F:\\work\\data\\exam2015.csv")
> d <- dist(scale(X))
> method=c("complete", "average", "centroid", "ward")
> for(m in method){
+     hc<-hclust(d, m); class<-cutree(hc, k=5)
+     print(m); print(sort(class))
+ }
错误于hclust(d, m) : 用群集时必需有n >= 2的对象
>
> for(m in method){
+     hc<-hclust(d, m)
+
+     windows()
+     plclust(hc, hang=-1)
+     re<-rect.hclust(hc, k=5, border="red")data
错误: 意外的符号 于
"    plclust(hc, hang=-1)
    re<-rect.hclust(hc, k=5, border="red")data"
>     print(m); print(re)
[1] "complete"
错误于print(re) : 找不到对象're'
> }

re<-rect.hclust(hc, k=5, border="red")data   这个data是什么？

建议，一步一步写，先不要写循环。等每一步通过了，再加循环。

再次感谢！看看您有时间将附件里面的数据给我做一下聚类分析，要完整的操作程序，可加我，谢谢！