В R есть способ заменить определенный текст в несколько строк кода? - PullRequest
0 голосов
/ 16 апреля 2019

Я хотел бы запустить один и тот же код, но каждый раз менять имя фрейма данных, чтобы можно было проводить один и тот же анализ для нескольких разных наборов данных, которые у меня есть.Есть ли более эффективный способ изменить мой код для экземпляра с помощью простой функции замены, или мне придется делать это каждый раз вручную?

Так выглядит мой код:

    ```{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".Я замечаю, что когда я дважды щелкаю по определенному тексту, он выделяет тот же текст везде, где он появляется в коде, что заставляет меня думать, что должен быть способ заменить его везде.

1 Ответ

1 голос
/ 16 апреля 2019
results <- sapply(c(frame1, frame2), function(df) { return(run.analysis(df)) }, simplify=TRUE)

Если это не сработает, оставьте комментарий, но я надеюсь, что это поможет.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...