初学R，
问个弱弱的问题，
请问用哪几个函数能够实现或者Rcode能够实现下面的##2-4？
谢谢！


Rcode如下：

##1.生成母数据集
bh=1:100
jxh=rep(1:17,c(4,5,6,7,8,4,5,6,7,8,4,5,5,5,6,7,8))
relation=c(0,5,6,10,0,5,6,10,11,0,5,6,10,11,12,0,5,6,10,11,12,13,0,5,6,10,11,12,13,14,
           0,5,6,10,0,5,6,10,11,0,5,6,10,11,12,0,5,6,10,11,12,13,0,5,6,10,11,12,13,14,
           0,5,6,10,0,5,6,10,11,0,5,6,10,11,0,5,6,10,11,0,5,6,10,11,12,0,5,6,10,11,12,13,
           0,5,6,10,11,12,13,14)
datajx=data.frame(jxh,relation,bh)  ###datajx是母数据集

##2.根据条件生成子数据集data1&data2   
if relation==5 then output data1;
if relation==6 then output data2;
？

##3.保留数据集data1&data2中的变量jxh & bh
？

##4.将data1&data2中bh分别重命名为did & mid
？