r语言不同聚类算法比较代码