Суммирование строк по индексной переменной в R

Я работаю с базой данных всех транспортных систем в Америке и пытаюсь сравнить разные агентства. Каждое дело – это особая часть организации. Например, автобусные линии отделены от метро. Я хотел бы объединить значения для всех случаев для данного агентства.

В основном я хочу суммировать значение каждого столбца для каждого «Trs _Id» и удалить остальные. Этот кадр данных представляет собой разбивку операционных расходов («операционных расходов» ). Вот как выглядит мой набор данных в R:

> colnames(opex)
[1] "Trs_Id"                  "Mode_Cd"                
[3] "Service_Cd"              "Expense_Category_Desc"  
[5] "Op_Sal_Wage_Amt"         "Other_Sal_Wage_Amt"     
[7] "Fringe_Benefit_Amt"      "Service_Costs_Amt"      
[9] "Fuel_Lubricant_Amt"      "Tire_Tube_Amt"          
[11] "Other_Mat_Sup_Amt"       "Utility_Amt"            
[13] "Casuality_Liability_Amt" "Tax_Amt"                
[15] "In_Report_Amt"           "Sep_Report_Amt"         
[17] "Misc_Expense_Amt"        "Expense_Transfer_Amt"   
[19] "Ada_Related_Amt"        
> NROW(opex)
[1] 6956
> id_nm <- table(opex$Trs_Id)
> NROW(id_nm)
[1] 616