Один из вариантов - это подмножество данных по номеру столбца, а затем использовать formula
метод aggregate
.
aggregate(.~ cbind(Tower_Name = Tower),
Software[c(7, match('Tower', names(Software)))], FUN = sum)
Ключ - это подмножество столбцов «Программное обеспечение». Здесь мы уже знаем индекс столбца 'Amount' как 7, объединенный с соответствующим индексом столбца 'Tower', выводит двухкадровый кадр данных. В методе формулы мы можем указать .
для всех остальных столбцов. Здесь это будет «Количество» или варианты его названия
С tidyverse
это было бы проще, поскольку summarise_at
может принимать либо имена столбцов, либо индекс
library(tidyverse)
Software %>%
group_by(Tower) %>%
summarise_at(7, sum)