R 排序数据帧

我有两个相同维度的数据帧。但如图所示，我想对数据帧

数据进行排序，以便
id\u num
按照
reference
的
id\u num
顺序进行排序。输出应类似于数据帧
必需的

我怎么做

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

reference
merge这里有一个选项与
data.table
nm1或只是
merge（reference[“id\u num”]，data）
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))

merged <- merge(reference[,"id_num",drop=FALSE],data,by="id_num")