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

arushisax · February 18, 2020, 6:55pm

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)

gppasco · February 18, 2020, 6:56pm

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

juniyong247 · February 18, 2020, 6:57pm

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

Becca63 · February 18, 2020, 11:58pm

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

ChaseBook · February 18, 2020, 11:58pm

x <- read_excel(file = "class_enrollment_summary_by_term2.18.20.xlsx",
                skip = 3) %>%
  clean_names() %>%
  filter(! is.na(course_))

hamaadmehal · February 18, 2020, 11:58pm

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)}

gspan28 · February 18, 2020, 11:58pm

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)}

nishu-lahoti · February 18, 2020, 11:58pm

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)}

lindaqin · February 18, 2020, 11:58pm

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)}

tahmidahmed2000 · February 18, 2020, 11:58pm

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

satoshi · February 18, 2020, 11:58pm

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

Jkim2000 · February 18, 2020, 11:59pm


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

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

alyssa-huberts · February 18, 2020, 11:59pm

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

aaguasvivas · February 18, 2020, 11:59pm

TWeiss · February 18, 2020, 11:59pm

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)}

hudsonmllr · February 18, 2020, 11:59pm

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)}

mmabizari · February 18, 2020, 11:59pm

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

katherinewang · February 18, 2020, 11:59pm

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)}

ddiakite · February 18, 2020, 11:59pm

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)}

daboombas · February 18, 2020, 11:59pm

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