Thread for Gov 1005/1006 Students to Submit a Practice Reprex

x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

enrollment <- read_excel("class_enrollment_summary_by_term2.18.20.xlsx", 
                         skip = 3) %>%
  clean_names()
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"

enrollment %>% 
  filter(!is.na(course_name))
#> Error in enrollment %>% filter(!is.na(course_name)): could not find function "%>%"
x <- read_excel(path = "class_enrollment_summary_by_term2.18.20.xlsx", 
                skip = 3) %>% 
  clean_names() %>%
  filter(! is.na(course_name)) 
#> Error in read_excel(path = "class_enrollment_summary_by_term2.18.20.xlsx", : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(file ="class_enrollment_summary_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

data <- read_excel("class_enrollment_summary_by_term_2.13.20.xlsx", 
                   skip = 3, 
                   col_names = TRUE) %>%
  clean_names() %>%
  filter(! is.na(course_name))
#> Error in read_excel("class_enrollment_summary_by_term_2.13.20.xlsx", skip = 3, : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(file="class_enrollment_summary_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

enrollment_2020 %>%
  filter(course_department == Government) %>%
  arrange(desc(total))
#> Error in enrollment_2020 %>% filter(course_department == Government) %>% : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

enro <- read_excel('class_enrollment_summary_by_term2.18.20.xlsx', skip = 3) %>% clean_names()
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx", 
    skip = 3)
#> Error in eval(expr, envir, enclos): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(file = "class_enrollment_summary_byterm2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_byterm2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

top_departments <- enrollment_stats %>%
  clean_names("snake") %>%
  group_by(course_department)
#> Error in enrollment_stats %>% clean_names("snake") %>% group_by(course_department): could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

data <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx"): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel(pathj = 'class_enrollment_summary_by_term2.18.20.xlsx', skip = 3)
#> Error in read_excel(pathj = "class_enrollment_summary_by_term2.18.20.xlsx", : could not find function "read_excel"
x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx") %>%
  clean_data()
 filter(!is.na(course_name)) %>% 
  filter(course_department == "Government") %>% 
  select(course_title, course_name, u_grad) %>%
  arrange(-u_grad) %>% 
  slice(1:5) %>% 
  gt() %>% 
  tab_header(title = "Top Five Government Classes")
#> Error in filter(!is.na(course_name)) %>% filter(course_department == "Government") %>% : could not find function "%>%"
enrollment_data <- read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% 
  clean_names()
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"

top_5_departments <- enrollment_data %>%
  groupby(course_department)
#> Error in enrollment_data %>% groupby(course_department): could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

enroll <- read_xlsx("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>%
  clean_names()
#> Error in read_xlsx("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

enrollment <- read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% clean_names()
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"

Created on 2020-02-18 by the reprex package (v0.3.0)

x <- read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = h)
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = h): could not find function "read_excel"

Created on 2020-02-18 by the reprex package (v0.3.0)