# csv file
library(readxl)
Apply_it_2 <- read_excel("Apply it #2.xlsx")
filter(Apply_it_2, month == 1)
## # A tibble: 32 × 3
## Column1 month births
## <dbl> <dbl> <dbl>
## 1 1991 1 32213
## 2 1992 1 31982
## 3 1993 1 31031
## 4 1994 1 30310
## 5 1995 1 30006
## 6 1996 1 29435
## 7 1997 1 28473
## 8 1998 1 27246
## 9 1999 1 26996
## 10 2000 1 27288
## # ℹ 22 more rows