R语言做中介效应，每次结果都会变

最近刚学习了用R做中介 效应分析，但是不知道哪里出了问题，我用同一批数分析时，每次结果都不一样，写的程序如下图 第一次运行的结果是这样：
第二次就变成了这样：
想请大神指点迷津，到底哪里出了问题呢……万分感谢！

可以在跑中介之前加一个set.seed()，比如set.seed(100)，设定生成随机数的种子，种子是为了让结果具有重复性，重现结果。如果不设定种子，生成的随机数无法重现。