Codecademy Aggregates in R Combining Grouping with Filter 5/7

#Sample Solution
---
title: "Aggregates in R"
output: html_notebook
---

```{r message = FALSE}
# load packages
library(readr)
library(dplyr)
```

```{r message = FALSE}
# load orders data
orders <- read_csv("orders.csv")

# inspect orders
head(orders)
```

```{r}
# define most_pop_orders here:
most_pop_orders <- orders %>%
  group_by(shoe_type) %>%
  filter(n() > 16)
most_pop_orders
```