HW2-DACSS601

##reading eggs_tidy dataset

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v stringr 1.4.0
## v tidyr   1.2.0     v forcats 0.5.1
## v readr   2.1.2

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

eggs_tidy<- read.csv("eggs_tidy - Sheet1.csv")
view(eggs_tidy)

##types of data in eggs_tidy

str(eggs_tidy)

## 'data.frame':    120 obs. of  6 variables:
##  $ month                 : chr  "January" "February" "March" "April" ...
##  $ year                  : int  2004 2004 2004 2004 2004 2004 2004 2004 2004 2004 ...
##  $ large_half_dozen      : num  126 128 131 131 131 ...
##  $ large_dozen           : num  230 226 225 225 225 ...
##  $ extra_large_half_dozen: num  132 134 137 137 137 ...
##  $ extra_large_dozen     : num  230 230 230 234 236 ...

eggs_tidy_test<-select(eggs_tidy, month, large_half_dozen, year) 
filter(eggs_tidy_test, month=="January", large_half_dozen>=131, year>2006) %>%
arrange(desc(year))

##     month large_half_dozen year
## 1 January            178.0 2013
## 2 January            174.5 2012
## 3 January            174.5 2011
## 4 January            174.5 2010
## 5 January            174.5 2009
## 6 January            132.0 2008