e=month(d)

r$month=e

r$航班是否取消=t$航班是否取消

length(r[r$航班是否取消=="正常",5])

length(r[r$航班是否取消=="取消",5])