Предполагая, что ваши данные находятся во фрейме данных, называемом df
...
library(dplyr)
library(tidyr)
df %>%
group_by(country, department) %>%
summarise(costs = sum(costs)) %>%
spread(department, costs)
Подробнее о dplyr , tidyr и Tidyverse , они сделают вашу жизнь на лот проще.