Если вы не возражаете против использования tidyverse, вы можете использовать group_by()
и summarize()
:
library(tidyverse)
df <-
data.frame(
stringsAsFactors = FALSE,
problem.6.data = c("Boston", "London", "Salt Lake City", "Shanghai"),
Freq = c(136L, 102L, 277L, 184L),
Category = c("Domestic", "International", "Domestic", "International")
)
df %>%
group_by(Category) %>%
summarise(sum = sum(Freq))
#> # A tibble: 2 x 2
#> Category sum
#> <chr> <int>
#> 1 Domestic 413
#> 2 International 286
Создано в 2020-03-19 с помощью пакета Представить (v0.3.0)