求助：如何批量修改代码

从别的地方复制的代码，但是其中的对象名、方法名等不是自己的，一行一行地改正太费时间，有没有办法批量修改？

类似于word中的查找替换，将几段文字中的某个相同的字符统一替换成另外一个字符

举例：

别处借来复制的示例代码：

# Average clustering
spe.ch.UPGMA.coph <- cophenetic(spe.ch.UPGMA)

cor(spe.ch, spe.ch.UPGMA.coph)

可以看到聚类运算处理的对象是“spe.ch”

我要把对象改成自己的“speSor”,而其中有多处需要改动。

手动逐一改动的自己的代码：

# Average clustering
speSor.UPGMA.coph <- cophenetic(speSor.UPGMA)

cor(speSor, speSor.UPGMA.coph)

简单来说：就是将代码中的spe.ch批量变成speSor如何实现？求大神帮助，谢谢。