library(terra)
v <- vect(system.file("extdata/cyl.gpkg", package = "tidyterra"))
v$gr_1 <- rep_len(c("A", "A", "B"), length.out = nrow(v))
v$gr_2 <- rep_len(c("C", "D"), length.out = nrow(v))
# Ungrouped
n_groups(v)
group_vars(v)
group_keys(v)
group_size(v)
groups(v)
group_rows(v)
group_data(v)
group_indices(v)
# Grouped by one var
gv <- group_by(v, gr_1)
n_groups(gv)
group_vars(gv)
group_keys(gv)
group_size(gv)
groups(gv)
group_rows(gv)
group_data(gv)
group_indices(gv)
# Grouped by several vars
gv2 <- group_by(v, gr_1, gr_2)
n_groups(gv2)
group_vars(gv2)
group_keys(gv2)
group_size(gv2)
groups(gv2)
group_rows(gv2)
group_data(gv2)
group_indices(gv2)
Run the code above in your browser using DataLab