在R中，有没有一种方法可以替换几行代码中的特定文本？

我希望运行相同的代码，但每次都更改数据帧的名称，以便可以对我拥有的几个不同的数据集运行相同的分析。是否有更有效的方法使用简单的replace函数修改实例的代码，或者每次都必须手动修改

这就是我的代码的样子：

    ```{r}
jd_df_wthr_corr <- subset(jd_df_wthr_lag, year < 2016) 
```

##Correlation of temperature (avg)

```{r}
jd_df_wthr_corr %>%
  ggplot(aes(logn, mean_temp)) +
  geom_point() +
  geom_smooth(method = "lm", se=FALSE)

cor.test(jd_df_wthr_corr$logn, jd_df_wthr_corr$mean_temp)
```


### with a 1 week lag

```{r}
jd_df_wthr_corr %>%
  ggplot(aes(lag_1week, mean_temp)) +
  geom_point() +
  geom_smooth(method = "lm", se=FALSE)

cor.test(jd_df_wthr_corr$lag_1week, jd_df_wthr_corr$mean_temp, use = "complete")
```

`{r}
jd_df_wthr_corr%
ggplot（aes（对数、平均温度））+
几何点（）+
几何平滑（方法=“lm”，se=假）
校正试验（jd_df_wthr_corr$对数，jd_df_wthr_corr$平均温度）
```
###滞后一周
```{r}
jd_df_wthr_corr%>%
ggplot（不良事件（滞后1周，平均温度））+
几何点（）+
几何平滑（方法=“lm”，se=假）
校正测试（jd_df_wthr_corr$滞后1周，jd_df_wthr_corr$平均温度，使用=“完成”）
```

---

这种情况持续了大约2500行。我想运行相同的代码，但将“jd”的每个实例替换为“jz”，或将“jd_df_wthr_corr”的每个实例替换为“jz_df_wthr_corr”。我注意到，当我双击一个特定的文本时，它会在代码中的任何地方突出显示相同的文本，这使我认为应该有一种方法来替换它。

结果您已经确定了R允许人们定义函数的主要原因之一。我在原始问题中添加了一些示例代码。我将如何合并您建议的代码以获得我想要的结果？
results <- sapply(c(frame1, frame2), function(df) { return(run.analysis(df)) }, simplify=TRUE)