How can I subtract values within one column based on values in mutliple other columns?

Question

I have a dataframe like this:

dat <- data.frame(c = c(rep(0, 3), rep(5, 3), rep(10, 3)),
                  id = c(rep(c("A","B","C