rstudio

library(dplyr) library(readxl) bikes.id <- read_excel("bikes.xlsx") bikes.id bikes.id <- read_excel("bikes.xlsx") bikes.id %>% select(model, price) bikes.id %>% arrange(desc(1:97)) bikes.id %>% filter(1:97 > mean(1:97, na.rm = TRUE))