r語言數據框篩選大於3?