既然是对称矩阵，你只需要打乱上三角或下三角的数据，另外一半直接按对称赋值就行了
给你一个参考


x和x1分别是

你好，非常感谢你的回复。我尝试了你发的代码，在做到x_ran = x[lower.tri(x)]这一步时，发现x_ran中的数值与最初的x矩阵中的数值不一样，然后回头再看原始矩阵，数据也变了呢请问您知道是咋回事吗？是不是x<-x+t(x)这一步出了问题？

代码前几行（一直到x <- x + t(x) ）只是随便弄一个对称矩阵的。如果你自己已经有一个对称矩阵了，前面几行自然就不需要了

你好，我确实是用的自己的矩阵数据哈。
  x<-as.matrix(network)  #network是我的数据
  x_ran = x[lower.tri(x)]
  x_ran <- sample(x_ran)  #到这一步都没有问题，x_ran确实是打乱后的下三角数据
  x1[lower.tri(x)] <- x_ran; x1 <- x1 + t(x1)  #运行完这一步后，数据就跟原数据不一样了，不知道为什么
刚又试了下，不是数据不一样了，而是报错 Error in x1 + t(x1) : non-conformable arrays
麻烦您抽空给看看好吗，谢谢你！

试下吧，其中read_xls函数在包readxl里
例子本身只是提供思路，不是说直接照搬啊你的数据是12x12的，我给的例子是5x5的矩阵