結果 : r data table apply function to multiple columns