long format, reshape with multiple variables

Question

I have a dataset that currently looks something like this:

df <- data.frame(Id = c("1","2","3"), 
                xt1 = c(2,4