bikes <- read_excel("bikes.xlsx")
bikes %>%
# select(): Isolate only the 'model' and 'price' columns for focused analysis.
select(model, price) %>%
# arrange(): Sort the remaining rows.
# desc(price) sorts the 'price' column in descending order (highest price first).
arrange(desc(price)) %>%
# print(n = Inf): Display all rows of the resulting tibble in the output.
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 415
bikes %>%
# select(): Choose the necessary columns ('model' and 'price').
select(model, price) %>%
# filter(): Keep only the rows that satisfy the condition.
# The condition compares each row's 'price' to the overall mean of the 'price' column.
# mean(price, na.rm = TRUE) calculates the average, ignoring any missing values (NA).
filter(price > mean(price, na.rm = TRUE)) %>%
# print(n = Inf): Display the complete list of high-priced bikes.
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