Ланцюжки виразів data.table

Опрацювання даних із data.table в R

Matt Dowle, Arun Srinivasan

Instructors, DataCamp

Ланцюжки виразів

Вирази data.table можна об'єднувати в ланцюжок, тобто x[...][...][...]

step_1 <- batrips[duration > 3600]
step_2 <- step_1[duration > 3600][order(duration)]
step_2[1:3]

# Те саме, що й
batrips[duration > 3600]

batrips[duration > 3600][order(duration)]

batrips[duration > 3600][order(duration)][1:3]

trip_id duration          
 295912 3601     
 347471 3602     
 536050 3602

Ланцюжки виразів

# Три стартові станції з найменшою середньою тривалістю
step_1 <- batrips[, .(mn_dur = mean(duration)), by = "start_station"]
step_2 <- step_1[order(mn_dur)]
step_2[1:3]

# Три стартові станції з найменшою середньою тривалістю
batrips[, .(mn_dur = mean(duration)),  
        by = "start_station"][order(mn_dur)][1:3]

                                 start_station   mn_dur
                                 2nd at Folsom 551.0807
 Temporary Transbay Terminal (Howard at Beale) 655.8563
                             2nd at South Park 697.7034

uniqueN()

uniqueN() — допоміжна функція, що повертає ціле число — кількість унікальних значень у вхідному об'єкті
Приймає як вектори, так і data.frames та data.tables.

id <- c(1, 2, 2, 1)
uniqueN(id)

x <- data.table(id, val = 1:4)

uniqueN(x)

uniqueN(x, by = "id")

uniqueN() разом із by

Обчисліть загальну кількість унікальних bike_id для кожного місяця

ans <- batrips[, uniqueN(bike_id), by = month(start_date)]
head(ans, 3)

 month    V1   ## <~~ auto naming of cols
     1   605
     2   608
     3   631

Давайте потренуємось!

Опрацювання даних із data.table в R