結果 : r script filter data frame