使用merge函数，merge后除了匹配列数据都被清空了

我想使用merge函数，根据vector3里面的时间保留res3里面的数据，但是merge后发现除了匹配列数据都被清空了，想请教一下为什么，我自己用几个数带入了一下发现函数没错，我觉得可能是数据结构的问题，但是又没找到问题出在哪里，这是第一次写代码，代码非常乱且烂.....数据和代码我都放在附件里了 data和代码.rar (3.85 MB)

2019-3-9 09:15:31 上传

附上我用来测试的代码：
a<-data.frame(c('0730','0801','0802','0803'),c('A1','A2','A3','A4'),c('数学','语文','体育','数学'))
names(a)[1:3]<-c("date","ID","class")
b<-data.frame(c('0730','0805','0802'))
names(b)[1]<-c("num")
a1<-table(a$date,a$ID)
a2<-data.frame(a1)
c<-merge(a2,b,by.x='Var1',by.y='num',all.y=TRUE)
write.csv(a1, 'H:/a1.csv')
is.data.frame(b)