Transpose from long to wide with pair groups in r

Question

I have descriptive statistics for four groups. My sample dataset is:

df <- data.frame(
  Grade =  c(3,3,3,3,4,4,4,4),
  group = c("none","G1