A для l oop, чтобы добавить итоговую строку в список кадров данных

Question

У меня есть список фреймов данных список фреймов данных . Каждый фрейм данных (dat[[1]]) имеет 6 столбцов:

1. Первый столбец имеет название проекта
2. Второй столбец имеет 6 категорий (бадминтон, футбол, футбол, баскетбол, бейсбол, плавание)
3. Тогда цель, еженедельно, разрыв и коэффициент завершения, который является% от того, сколько целей было выполнено за это время

Моя цель - добавить строку общего итога в конец каждая из таблиц в списке. Я написал этот код на R, но он только добавляет итоговую строку к первому элементу в списке. пожалуйста, помогите мне добавить общую итоговую строку к остальным элементам в списке. Спасибо!

 for (d in 1:length(dat)){
    dat[[d]]%<>% bind_rows(summarize_all(dat[[d]], funs(if(is.numeric(.)) sum(.) else "Grand Total")))
    dat[[d]]%<>% cbind(dat[[d]], col_names)
  }