使用 .SD（II）
你也可以用 lapply() 將同一個函式套用到 .SDcols 所指定的每一個欄位。在這個練習中，你會使用 uniqueN() 計算每個月份的唯一起點站與郵遞區號數量。uniqueN() 會回傳欄位／向量／data.table 中唯一元素的數量。
本練習屬於課程
R 的 data.table 資料操作
練習說明
使用 start_date 萃取月份，找出每一個月份中唯一的起點站與郵遞區號的總數。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Find the total number of unique start stations and zip codes per month
unique_station_month <- batrips[, ___(___, ___),
by = ___,
.SDcols = c("start_station", "zip_code")]
unique_station_month