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

x <- read_excel(path="class_enrollment_summary_by_term2.18.20.xlsx", skip = 3)
#> Error in read_excel(path = "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)

this is busted

enrollment <- read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip=3) %>%
  clean_names() %>%
  select(course_department, total) %>%
  group_by(course_department) %>%
  summarize(total_enrollees = sum(total)) %>%
  arrange(desc(totalenrollees)) %>%
  slice(1:5)
#> Error in read_excel("class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% : could not find function "%>%"
enroll <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx", skip = 3) %>% 

New names:

  • `` -> ...2
  • `` -> ...3
  • `` -> ...4
  • `` -> ...5
  • `` -> ...6
  • … and 8 more problems
r2 <-- csv %>%
  filter(treatment == 1) %>% 
  summarize(mean = mean(eval_gov_overall, na.rm=TRUE))
#> Error in -csv %>% filter(treatment == 1) %>% summarize(mean = mean(eval_gov_overall, : could not find function "%>%"
x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx",
                skip = 3) %>%
  clean_names() %>%
  filter(! is.na(course_))

x <- read_excel(file = "class_enrollment_summart_by_term2.18.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summart_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_("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 "%>%"

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

department_data <- enrollment_data %>%
  group_by(`Course Department`) %>%
  summarize(value = sum(UGrad)) %>%
  arrange(desc(value)) %>%
  head(5)
#> Error in enrollment_data %>% group_by(`Course Department`) %>% summarize(value = sum(UGrad)) %>% : could not find function "%>%"

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

and i oop-

enrollment <- read_excel("class_enrollment_summary_by_term2.18.2.xlsx", skip = 3) %>% 
  clean_names() %>%
  filter(!is.na(course_name)) %>%
  group_by(course_department) %>%
  arrange(-(total))
#> Error in read_excel("class_enrollment_summary_by_term2.18.2.xlsx", skip = 3) %>% : could not find function "%>%"

enrollment
#> Error in eval(expr, envir, enclos): object 'enrollment' not found

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

z_arrange <- z %>%
  select(course_department, total) %>%
  group_by(course_department) %>%
  summarize(enrollees = sum(total)) %>%
  arrange(desc(enrollee)) %>%
  slice(1:5) %>%
  gt() 

#> Error in z %>% select(course_department, total) %>% group_by(course_department) %>% : could not find function "%>%"
z_arrange
#> Error in eval(expr, envir, enclos): object 'z_arrange' not found

Error: path does not exist: ‘class_enrollment_summary_by_term_2.18.20.xlsx’


answew
#> Error in eval(expr, envir, enclos): object 'answew' not found

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

x <- tibble(name = c("Bugs Bunny", "Daffy Duck", "Roadrunner", views = c(10, 54, 20)))
#> Error in tibble(name = c("Bugs Bunny", "Daffy Duck", "Roadrunner", views = c(10, : could not find function "tibble"
tibble %>% group_by(Views)
#> Error in tibble %>% group_by(Views): could not find function "%>%

read_excel("class_enrollment_summary_by_term_2.13.20.xlsx", skip = 3) %>%
  clean_names() %>% 
  group_by("Course Department") %>% 
  summarize(total = sum(total)) %>% 
  arrange(desc(total))
#> 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)

New_Enrollment <- read_excel("New Enrollment.xlsx", skip=3)
#> Error in read_excel("New Enrollment.xlsx", skip = 3): could not find function "read_excel"
View(New_Enrollment) %>% clean_names()
#> Error in View(New_Enrollment) %>% clean_names(): could not find function "%>%"

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

class_enrollment_summary_by_term_2.13.20.xlsx
#> Error in eval(expr, envir, enclos): object 'class_enrollment_summary_by_term_2.13.20.xlsx' not found
x <- read_excel("class_enrollment_summary_by_term_2.18.20.xlsx", skip=3)
#> Error in read_excel("class_enrollment_summary_by_term_2.18.20.xlsx", skip = 3): 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_term_2.13.20.xlsx")
#> Error in read_excel(file = "class_enrollment_summary_by_term_2.13.20.xlsx"): could not find function "read_excel"

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

enrollment %>% group_by(course_department) %>% summarize(totaldepartment = sum(total)) %>% arrange(desc(totaldepartment))
#> Error in enrollment %>% group_by(course_department) %>% summarize(totaldepartment = sum(total)) %>% : could not find function "%>%"
#> Error in enrollment %>% group_by(course_department) %>% summarize(totaldepartment = sum(total)) %>% : could not find function "%>%"