来源：https://stackoverflow.com/questions/45295639/how-to-apply-a-function-to-a-subset-of-data-table-using-by-and-exposing-all-colu 标签 r data.table
