reference <- data.frame(id_num=c(206,307,408,506), Event_1=0, Event_2=0)

data <- data.frame(id_num=c(506,307,408,206), Event_1=c(1,3,5,7), Event_2=c(2,4,6,8))

required <- data.frame(id_num=c(206,307,408,506), Event_1=c(7,3,5,1), Event_2=c(8,4,6,2))