library(tidyverse) library(tidyquant) library(readxl) library(writexl) bikes <- read_excel(“bikes.xlsx”) bikes_sorted <- bikes %>% select(model, price) %>% arrange(desc(price)) print(bikes_sorted) mean_price <- mean(bikes$price) bikes_filtered <- bikes %>% select(model, price) %>% filter(price > mean_price) print(bikes_filtered)