df <- data.frame(Name = c("Aira", "Aira", "Aira", "Ben", "Ben", "Ben", "Cat", "Cat", "Cat"),
Month = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L),
Rate1 = c(15, 2, 6, 2, 34, 3, 29, 17, 10),
Rate2 = c(17, 5, 8, 5, 3, 17, 16, 2, 15))
aggregate(df[, 3:4], list(df$Name), mean)