我想运行相同的代码,但是每次都要更改数据框的名称,以便可以对我拥有的多个不同数据集运行相同的分析。是否有更有效的方法通过简单的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")
```
大约持续2500行。我想运行相同的代码,但将每个“ jd”实例替换为“ jz”,或者将每个“ jd_df_wthr_corr”替换为“ jz_df_wthr_corr”。我注意到,当我双击特定文本时,它会在代码中出现的所有位置突出显示相同的文本,这使我认为应该有一种方法可以在所有位置替换它。
答案 0 :(得分:1)
results <- sapply(c(frame1, frame2), function(df) { return(run.analysis(df)) }, simplify=TRUE)
如果它不起作用,请发表评论,但我希望能有所帮助。