How to cross tabulate the summary values across same field

Question

This may have solutions/answers available here, but I am unable to find.

Let us assume a simple data like this

x <- data.frame(id = rep(1:3, each = 2),