filter and long style data frame working