chainしながらもオブジェクトを残したい

%>%連発しながらもオブジェクトは残したい、そんなことあると思います。
以下のような感じでやりたいわけです。しかしこれはエラーになる。

iris %>% group_by(Species) %>% summarise(mn=mean(Sepal.Length)) -> res %>% qplot(data=.,x=Species,y=mn,geom="bar",stat="identity")

ということで現状以下のようにやっておりますがもっと良いやり方はないものか。

iris %>% group_by(Species) %>% summarise(mn=mean(Sepal.Length)) %>% assign("res",.,1) %>% qplot(data=.,x=Species,y=mn,geom="bar",stat="identity")