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

[jbrose]

+   skip=3)
>    clean_names()                                                                            
Error in clean_names() : could not find function "clean_names"
> View(enrollment)`

[jybkim]

install.packages(¡°reprex¡±)

[mstephens25]

x = 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 "%>%"

[shinangie]

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

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

[hannahphan]

x <- read("class_enrollment_summary_by_term2.18.20.xlsx") %>%
  clean_names()
#> Error in read("class_enrollment_summary_by_term2.18.20.xlsx") %>% clean_names(): could not find function "%>%"
x
#> Error in eval(expr, envir, enclos): object 'x' not found

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

[yongrlee]

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

[rjphan]

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

[arnavster]

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

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

[larateich]

enrollement %>% 
  arrange(total)
#> Error in enrollement %>% arrange(total): could not find function "%>%"

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

[JHansen]

[aaguasvivas]

x <- read_xl("class_enrollment_summary_by_term_2.13.20.xlsx", skip = 3) %>%
  clean_names() %>%
  group_by(course_department) %>%
  summarize(total = sum(total)) %>%
  arrange(desc(total)) %>%
  slice(1:5) %>%
  select(course_department, total) %>%
  gt() %>%
  tab_header(title = "Top 5 Departments Enrollment") %>%
  cols_label(course_department = "Course Department", 
             total = "Total")
#> Error in read_xl("class_enrollment_summary_by_term_2.13.20.xlsx", skip = 3) %>% : could not find function "%>%"

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