This report analyzes the bikes dataset using
R.
We will perform several steps: 1. Load necessary R libraries
2. Import data from an Excel file
3. Sort bikes by price (descending)
4. Filter bikes with prices above the average
These packages help us read Excel files, manipulate data, and display results.
library(tidyverse) # Data manipulation and visualization
library(lubridate) # Date/time handling
library(tidyquant) # Financial analysis tools
library(readxl) # Read Excel files
library(writexl) # Write Excel filesbikes <- read_excel("bikes.xlsx")bikes %>%
select(model, price) %>%
arrange(desc(price)) %>%
print(n = Inf)## # A tibble: 97 × 2
## model price
## <chr> <dbl>
## 1 Supersix Evo Black Inc. 12790
## 2 Scalpel-Si Black Inc. 12790
## 3 Habit Hi-Mod Black Inc. 12250
## 4 F-Si Black Inc. 11190
## 5 Supersix Evo Hi-Mod Team 10660
## 6 Synapse Hi-Mod Disc Black Inc. 9590
## 7 Scalpel-Si Race 9060
## 8 F-Si Hi-Mod Team 9060
## 9 Trigger Carbon 1 8200
## 10 Supersix Evo Hi-Mod Dura Ace 1 7990
## 11 Jekyll Carbon 1 7990
## 12 Synapse Hi-Mod Disc Red 7460
## 13 Scalpel-Si Hi-Mod 1 7460
## 14 Habit Carbon 1 7460
## 15 Slice Hi-Mod Black Inc. 7000
## 16 Scalpel-Si Carbon 2 6390
## 17 Scalpel 29 Carbon Race 6390
## 18 F-Si Hi-Mod 1 6390
## 19 Jekyll Carbon 2 6070
## 20 Trigger Carbon 2 5970
## 21 CAAD12 Black Inc 5860
## 22 Synapse Hi-Mod Dura Ace 5860
## 23 Supersix Evo Hi-Mod Dura Ace 2 5330
## 24 Synapse Hi-Mod Disc Ultegra 5330
## 25 Scalpel-Si Carbon 3 5330
## 26 Scalpel 29 Carbon 2 5330
## 27 Habit Carbon 2 5330
## 28 Synapse Carbon Disc Ultegra D12 4800
## 29 F-Si Carbon 2 4800
## 30 Slice Hi-Mod Dura Ace D12 4500
## 31 Habit Carbon SE 4480
## 32 Supersix Evo Hi-Mod Utegra 4260
## 33 CAAD12 Disc Dura Ace 4260
## 34 Scalpel-Si Carbon 4 4260
## 35 Scalpel 29 Carbon 3 4260
## 36 Supersix Evo Red 3940
## 37 Jekyll Carbon 3 3840
## 38 Synapse Carbon Disc Ultegra 3730
## 39 Trigger Carbon 3 3730
## 40 Fat CAAD1 3730
## 41 Habit Carbon 3 3730
## 42 SuperX Hi-Mod CX1 3500
## 43 Supersix Evo Ultegra 3 3200
## 44 CAAD12 Red 3200
## 45 Synapse Carbon Ultegra 3 3200
## 46 Slice Ultegra D12 3200
## 47 Jekyll Carbon 4 3200
## 48 Trigger Carbon 4 3200
## 49 Scalpel-Si 5 3200
## 50 Scalpel 29 4 3200
## 51 Bad Habit 1 3200
## 52 F-Si Carbon 4 2880
## 53 Habit 4 2880
## 54 Beast of the East 1 2770
## 55 Slice Ultegra 2700
## 56 Supersix Evo Ultegra 4 2660
## 57 CAAD Disc Ultegra 2660
## 58 Synapse Carbon Ultegra 4 2660
## 59 Synapse Carbon Disc 105 2660
## 60 Bad Habit 2 2660
## 61 SuperX Ultegra 2450
## 62 F-Si 1 2340
## 63 Habit 5 2340
## 64 Supersix Evo 105 2240
## 65 CAAD12 Ultegra 2240
## 66 Synapse Carbon 105 2240
## 67 Synapse Disc Adventure 2130
## 68 Fat CAAD2 2130
## 69 Beast of the East 2 2130
## 70 F-Si 2 2060
## 71 SuperX 105 1960
## 72 CAAD12 Disc 105 1950
## 73 Slice 105 1950
## 74 Habit 6 1950
## 75 Supersix Evo Tiagra 1840
## 76 Syapse Carbon Tiagra 1840
## 77 F-Si 3 1840
## 78 SuperX Rival CX1 1750
## 79 CAAD12 105 1680
## 80 Beast of the East 3 1620
## 81 Synapse Disc 105 1570
## 82 Trail 1 1520
## 83 CAAD8 105 1410
## 84 Trail 2 1350
## 85 CAAD8 Tiagra 1250
## 86 Synapse Disc Tiagra 1250
## 87 Trail 3 1080
## 88 CAAD8 Sora 1030
## 89 Synapse Sora 1030
## 90 Trail 4 980
## 91 Synapse Claris 870
## 92 CAAD8 Claris 815
## 93 Trail 5 815
## 94 Catalyst 1 705
## 95 Catalyst 2 585
## 96 Catalyst 3 480
## 97 Catalyst 4 415bikes %>%
select(model, price) %>%
filter(price > mean(price, na.rm = TRUE)) %>%
print(n = Inf)## # A tibble: 35 × 2
## model price
## <chr> <dbl>
## 1 Supersix Evo Black Inc. 12790
## 2 Supersix Evo Hi-Mod Team 10660
## 3 Supersix Evo Hi-Mod Dura Ace 1 7990
## 4 Supersix Evo Hi-Mod Dura Ace 2 5330
## 5 Supersix Evo Hi-Mod Utegra 4260
## 6 CAAD12 Black Inc 5860
## 7 CAAD12 Disc Dura Ace 4260
## 8 Synapse Hi-Mod Disc Black Inc. 9590
## 9 Synapse Hi-Mod Disc Red 7460
## 10 Synapse Hi-Mod Dura Ace 5860
## 11 Synapse Hi-Mod Disc Ultegra 5330
## 12 Synapse Carbon Disc Ultegra D12 4800
## 13 Slice Hi-Mod Black Inc. 7000
## 14 Slice Hi-Mod Dura Ace D12 4500
## 15 Jekyll Carbon 1 7990
## 16 Jekyll Carbon 2 6070
## 17 Trigger Carbon 1 8200
## 18 Trigger Carbon 2 5970
## 19 Scalpel-Si Black Inc. 12790
## 20 Scalpel-Si Race 9060
## 21 Scalpel-Si Hi-Mod 1 7460
## 22 Scalpel-Si Carbon 2 6390
## 23 Scalpel-Si Carbon 3 5330
## 24 Scalpel-Si Carbon 4 4260
## 25 Scalpel 29 Carbon Race 6390
## 26 Scalpel 29 Carbon 2 5330
## 27 Scalpel 29 Carbon 3 4260
## 28 F-Si Black Inc. 11190
## 29 F-Si Hi-Mod Team 9060
## 30 F-Si Hi-Mod 1 6390
## 31 F-Si Carbon 2 4800
## 32 Habit Hi-Mod Black Inc. 12250
## 33 Habit Carbon 1 7460
## 34 Habit Carbon 2 5330
## 35 Habit Carbon SE 4480