Цикл по кадру данных с суммированием при определенном условии (R)

Question

У меня есть датафрейм, который выглядит следующим образом:

Я хочу подвести итоги продаж по регионам.Ниже приведен код, который я использую, чтобы подвести итоги продаж для «Востока».Я хочу использовать цикл for, а не встроенную функцию.

 totalEast <- 0
 for( i in 1: nrow(sales)){

    if (sales$Region[i] =="East"){

        totalEast <- sales$Total[i] + totalEast

    }
}

    print(totalEast)

но это не работает ??Заранее спасибо

Answer 1

Использование dplyr:

sales %>% group_by(Region) %>%
summarize(byreg=sum(Total))