St
iris_grp <- group_by(iris, Species)
bind_cols(
summarise(iris_grp, across(1:2, sum, .names = "{.col}_sum")),
summarise(iris_grp, across(3:4, mean, .names = "{.col}_mean"))[, -1]
)
Size: a a a
St
St
просто убрать столбец:
iris_grp <- group_by(iris, Species)
bind_cols(
summarise(iris_grp, across(1:2, sum, .names = "{.col}_sum")),
summarise(iris_grp, across(3:4, mean, .names = "{.col}_mean"))[, -1]
)
DK
St
St
St
St
DK
NH
ЕТ
IY
PD
PD
dt = as.data.table(mtcars)[, .(cyl, disp)][order(cyl, disp)]
dt[, .(N = .N, N_unique = uniqueN(.SD)), by = cyl
][, all_rows_equal := N == N_unique][]
PD
dt[, .(all_rows_unique = uniqueN(.SD) < .N), by = cyl]
IY
dt[, .(all_rows_unique = uniqueN(.SD) < .N), by = cyl]
ИП
А
AP
ГД