数据有重复的，就会出现结。如果在意的话，加上一个扰动即可

不好意思 我不太理解具体怎么实现

> x<-c(1,1,2,3,4)
> y<-2:6
> cor.test(x,y,method = "spearman")

        Spearman's rank correlation rho

data:  x and y
S = 0.50641, p-value = 0.004818
alternative hypothesis: true rho is not equal to 0
sample estimates:
      rho
0.9746794

Warning message:
In cor.test.default(x, y, method = "spearman") : 无法给连结计算精確p值
> x1<-c(1,1+1e-6,2,3,4)
> cor.test(x1,y,method = "spearman")

        Spearman's rank correlation rho

data:  x1 and y
S = 2.2204e-15, p-value = 0.01667
alternative hypothesis: true rho is not equal to 0
sample estimates:
rho
  1

谢谢 不过我有大量数据 要一一加干扰么

生成一组随机数加上去例如rand<-rnorm(100,sd=1e-6)