until tapply (na fixed)
factors to numeric
tapply
final 4 data.frames