Read multiple headers excel file and melt multiple columns in R

Question

Say I have a excel table like

Reading with dput:

df <- structure(list(id = c(NA, 1L, 2L, 3L), name = structure(c(1L, 
4L, 3L, 2L), .La