These work like dplyr's bind_cols() and bind_rows(). The first argument has to be an egor object. Additional rows/columns are added bottom/RHS of the active data level (ego, alter, aatie).

append_rows(.egor, ..., .id = NULL)

append_cols(.egor, ...)

Arguments

.egor

An egor object.

...

Data frames to combine.

.id

Data frame identifier.

Value

egor object containing the additional rows/ columns on the active level.

Examples

e <- make_egor(12, 15) # Adding a column to the ego level additional_ego_columns <- tibble(x = sample(1:3, 12, replace = TRUE)) append_cols(e, additional_ego_columns)
#> # EGO data (active): 12 x 7 #> .egoID sex age age.years country income x #> <dbl> <chr> <fct> <int> <chr> <dbl> <int> #> 1 1 m 46 - 55 48 Australia 365 2 #> 2 2 w 36 - 45 38 Australia 36865 2 #> 3 3 m 0 - 17 10 Australia 33580 1 #> # ALTER data: 97 x 7 #> .altID .egoID sex age age.years country income #> <int> <dbl> <chr> <fct> <int> <chr> <dbl> #> 1 1 1 m 46 - 55 49 Australia 50735 #> 2 2 1 m 46 - 55 47 USA 42340 #> 3 3 1 m 66 - 100 67 Poland 56210 #> # AATIE data: 193 x 4 #> .egoID .srcID .tgtID weight #> <int> <int> <int> <dbl> #> 1 4 1 7 1 #> 2 1 2 7 1 #> 3 4 4 5 1
# Adding rows to the ego and alter level additional_ego_rows <- list( .egoID = 13, sex = "w", age = factor("56 - 65"), age.years = 60, country = "Australia" ) %>% as_tibble() additional_alter_rows <- list( .altID = 1:5, .egoID = rep(13, 5), sex = sample(c("f", "m"), 5, replace = TRUE) ) %>% as_tibble() append_rows(e, additional_ego_rows) %>% activate(alter) %>% append_rows(additional_alter_rows)
#> # ALTER data (active): 102 x 7 #> .altID .egoID sex age age.years country income #> <int> <dbl> <chr> <fct> <int> <chr> <dbl> #> 1 1 1 m 46 - 55 49 Australia 50735 #> 2 2 1 m 46 - 55 47 USA 42340 #> 3 3 1 m 66 - 100 67 Poland 56210 #> # EGO data: 13 x 6 #> .egoID sex age age.years country income #> <dbl> <chr> <fct> <dbl> <chr> <dbl> #> 1 1 m 46 - 55 48 Australia 365 #> 2 2 w 36 - 45 38 Australia 36865 #> 3 3 m 0 - 17 10 Australia 33580 #> # AATIE data: 193 x 4 #> .egoID .srcID .tgtID weight #> <int> <int> <int> <dbl> #> 1 4 1 7 1 #> 2 1 2 7 1 #> 3 4 4 5 1