Авто петля (экспорт) в R

Question

Я импортирую исторические данные из файла CSV с двумя столбцами (метка даты и значения), делаю прогноз в R и экспортирую значения прогноза обратно в CSV. Все хорошо, за исключением того, что я прогнозирую много разных типов исторических данных, каждый со своим собственным файлом CSV. Я хочу иметь возможность создать цикл для чтения всех хронологических файлов CSV из одной папки, составления прогнозов, а также их сохранения и экспорта значений прогноза в CSV в отдельную папку.

Это код, который я использую:

df <- read.csv("C:/.../sample3.csv")
m <- prophet(df)
future <- make_future_dataframe(m, periods = 365)
forecast <- predict(m, future)
write.csv(forecast, 'C:/.../testoutput2.csv')

Я новичок в R и проверяю ресурсы онлайн, но не нашел решения. Надеюсь, что кто-то может помочь мне здесь. Спасибо.

Answer 1

Я предполагаю, что вы хотите перебрать файлы в папке. Используйте list.files, чтобы получить список всех файлов CSV, а затем вы можете выполнить цикл. Выходные файлы будут иметь формат out_filename.csv

setwd("c:/something/something/")
for (file in list.files(pattern ="*.csv")){

  df <- read.csv(file)
  m <- prophet(df)
  future <- make_future_dataframe(m, periods = 365)
  forecast <- predict(m, future)
  write.csv(forecast, sprintf("out_%s.csv", file)

}