Assignment 5

Objective: rm(list = ls()) library(tidyverse) \"acceleration_earth_gravity_measurment.csv\" %>% read_csv() %>% gather(key = students, value = gravity) %>% separate(key = students, into = c(\"S\",\"student\")) %>% select(-S) %>% ggplot(aes(x = reorder(student,gravity),…