R groupby and calculate special average

Question

Sample dataframe:

id <- c("a","a","a","a","b","b","b")
id2 <- c(1,2,3,4,1,1,2)
val