R - How to sum a variable by multiple group

Question

x <- data.frame(Category=factor(c("First", "First", "First", "Second",
                                    "Third&quo