something whack with dplyr and groups