append_row()
: add new rows to the start/end of a tsibble by filling a key-index
pair and NA
for measured variables.
append_case()
is an alias of append_row()
.
new_data(.data, n = 1L, ...) # S3 method for tbl_ts new_data(.data, n = 1L, keep_all = FALSE, ...) append_row(.data, n = 1L, ...)
.data | A |
---|---|
n | An integer indicates the number of key-index pair to append. If
|
... | Passed to individual S3 method. |
keep_all | If |
new_data(pedestrian)#> # A tsibble: 4 x 2 [1h] <Australia/Melbourne> #> # Key: Sensor [4] #> Sensor Date_Time #> <chr> <dttm> #> 1 Birrarung Marr 2017-01-01 00:00:00 #> 2 Bourke Street Mall (North) 2017-01-01 00:00:00 #> 3 QV Market-Elizabeth St (West) 2017-01-01 00:00:00 #> 4 Southern Cross Station 2017-01-01 00:00:00new_data(pedestrian, keep_all = TRUE)#> # A tsibble: 4 x 5 [1h] <Australia/Melbourne> #> # Key: Sensor [4] #> Sensor Date_Time Date Time Count #> <chr> <dttm> <date> <int> <int> #> 1 Birrarung Marr 2017-01-01 00:00:00 NA NA NA #> 2 Bourke Street Mall (North) 2017-01-01 00:00:00 NA NA NA #> 3 QV Market-Elizabeth St (West) 2017-01-01 00:00:00 NA NA NA #> 4 Southern Cross Station 2017-01-01 00:00:00 NA NA NAnew_data(pedestrian, n = 3)#> # A tsibble: 12 x 2 [1h] <Australia/Melbourne> #> # Key: Sensor [4] #> Sensor Date_Time #> <chr> <dttm> #> 1 Birrarung Marr 2017-01-01 00:00:00 #> 2 Birrarung Marr 2017-01-01 01:00:00 #> 3 Birrarung Marr 2017-01-01 02:00:00 #> 4 Bourke Street Mall (North) 2017-01-01 00:00:00 #> 5 Bourke Street Mall (North) 2017-01-01 01:00:00 #> 6 Bourke Street Mall (North) 2017-01-01 02:00:00 #> 7 QV Market-Elizabeth St (West) 2017-01-01 00:00:00 #> 8 QV Market-Elizabeth St (West) 2017-01-01 01:00:00 #> 9 QV Market-Elizabeth St (West) 2017-01-01 02:00:00 #> 10 Southern Cross Station 2017-01-01 00:00:00 #> 11 Southern Cross Station 2017-01-01 01:00:00 #> 12 Southern Cross Station 2017-01-01 02:00:00new_data(pedestrian, n = -2)#> # A tsibble: 8 x 2 [1h] <Australia/Melbourne> #> # Key: Sensor [4] #> Sensor Date_Time #> <chr> <dttm> #> 1 Birrarung Marr 2014-12-31 22:00:00 #> 2 Birrarung Marr 2014-12-31 23:00:00 #> 3 Bourke Street Mall (North) 2015-02-16 22:00:00 #> 4 Bourke Street Mall (North) 2015-02-16 23:00:00 #> 5 QV Market-Elizabeth St (West) 2014-12-31 22:00:00 #> 6 QV Market-Elizabeth St (West) 2014-12-31 23:00:00 #> 7 Southern Cross Station 2014-12-31 22:00:00 #> 8 Southern Cross Station 2014-12-31 23:00:00tsbl <- tsibble( date = rep(as.Date("2017-01-01") + 0:2, each = 2), group = rep(letters[1:2], 3), value = rnorm(6), key = group )#>append_row(tsbl)#> # A tsibble: 8 x 3 [1D] #> # Key: group [2] #> date group value #> <date> <chr> <dbl> #> 1 2017-01-01 a -0.657 #> 2 2017-01-02 a -0.479 #> 3 2017-01-03 a 0.637 #> 4 2017-01-04 a NA #> 5 2017-01-01 b -0.670 #> 6 2017-01-02 b 1.32 #> 7 2017-01-03 b 0.514 #> 8 2017-01-04 b NAappend_row(tsbl, n = 2)#> # A tsibble: 10 x 3 [1D] #> # Key: group [2] #> date group value #> <date> <chr> <dbl> #> 1 2017-01-01 a -0.657 #> 2 2017-01-02 a -0.479 #> 3 2017-01-03 a 0.637 #> 4 2017-01-04 a NA #> 5 2017-01-05 a NA #> 6 2017-01-01 b -0.670 #> 7 2017-01-02 b 1.32 #> 8 2017-01-03 b 0.514 #> 9 2017-01-04 b NA #> 10 2017-01-05 b NAappend_row(tsbl, n = -2)#> # A tsibble: 10 x 3 [1D] #> # Key: group [2] #> date group value #> <date> <chr> <dbl> #> 1 2016-12-30 a NA #> 2 2016-12-31 a NA #> 3 2017-01-01 a -0.657 #> 4 2017-01-02 a -0.479 #> 5 2017-01-03 a 0.637 #> 6 2016-12-30 b NA #> 7 2016-12-31 b NA #> 8 2017-01-01 b -0.670 #> 9 2017-01-02 b 1.32 #> 10 2017-01-03 b 0.514