play with chaining in R using factor set