我建立了多个集但是为什么不能合并呢

spen <- subset(ddf, select=c(ID,fn021_w2_1_3_))
spen <- subset(ddf, select=c(ID,fn021_w2_1_3_))
drtt <- subset(drt, select=c(ID,hc005))
drtt <- subset(drt, select=c(ID,hc013))
deff <- subset(def, select=c(ID,ce009_1_1_))
dwff <- subset(dwf, select=c(ID,ff002_w4_a))
doff <- subset(dof, select=c(ID,dc028 ))


#！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
drfs$gend <- ifelse(drfs$ba000_w2_3==1,0,ifelse(drfs$ba000_w2_3==2,1, NA))
drfs$age <- drfs$ba004_w3_1

sdem <- subset(drfs, select=c(ID, gend, age,edu,reg,))
summary(ddf$fn021_w2_1_3_)

all <- merge(sdem, spen, by="ID")

但是他总是显示

Error in fix.by(by.x, x) : 
  'by'一定得用数字，名字或逻辑值来指定一个或多个列
这个错误 请问我该怎么操作呢

1.spen <- subset(ddf, select=c("ID","fn021_w2_1_3_"))
sdem <- subset(drfs, select=c("ID", "gend"," age","edu","reg",))
subset()函数你应用的有问题，select（）里面列名有引号。
2.all <- merge(sdem, spen, by.sdem="ID",by.spen="ID")
试试这个代码，不然就是你两个数据集的“ID”列名称有问题，你先试试！
3.报错也可能是因为merge（）函数找不到列名“ID”，因为你第一步错了，先按照步骤1改一下。