这里是使用包 plyr 的一种：

library(plyr)
ddply(df,~Date + AD + Runway,summarise,MTOW=sum(MTOW),nr.flights=sum(nr.flights))