## Rows: 97
## Columns: 4
## $ bike.id     <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,…
## $ model       <chr> "Supersix Evo Black Inc.", "Supersix Evo Hi-Mod Team", "Su…
## $ description <chr> "Road - Elite Road - Carbon", "Road - Elite Road - Carbon"…
## $ price       <dbl> 12790, 10660, 7990, 5330, 4260, 3940, 3200, 2660, 2240, 18…
## Rows: 15,644
## Columns: 12
## $ ...1          <chr> "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11",…
## $ order.id      <dbl> 1, 1, 2, 2, 3, 3, 3, 3, 3, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7,…
## $ order.line    <dbl> 1, 2, 1, 2, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 1, 2, 3, 4, 1,…
## $ order.date    <dttm> 2011-01-07, 2011-01-07, 2011-01-10, 2011-01-10, 2011-01…
## $ customer.id   <dbl> 2, 2, 10, 10, 6, 6, 6, 6, 6, 22, 8, 8, 8, 8, 16, 16, 16,…
## $ product.id    <dbl> 48, 52, 76, 52, 2, 50, 1, 4, 34, 26, 96, 66, 35, 72, 45,…
## $ quantity      <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1,…
## $ model         <chr> "Jekyll Carbon 2", "Trigger Carbon 2", "Beast of the Eas…
## $ description   <chr> "Mountain - Over Mountain - Carbon", "Mountain - Over Mo…
## $ price         <dbl> 6070, 5970, 2770, 5970, 10660, 3200, 12790, 5330, 1570, …
## $ bikeshop.name <chr> "Ithaca Mountain Climbers", "Ithaca Mountain Climbers", …
## $ location      <chr> "Ithaca, NY", "Ithaca, NY", "Kansas City, KS", "Kansas C…
## Rows: 15,644
## Columns: 16
## $ ...1           <chr> "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11"…
## $ order.id       <dbl> 1, 1, 2, 2, 3, 3, 3, 3, 3, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7…
## $ order.line     <dbl> 1, 2, 1, 2, 1, 2, 3, 4, 5, 1, 1, 2, 3, 4, 1, 2, 3, 4, 1…
## $ order.date     <dttm> 2011-01-07, 2011-01-07, 2011-01-10, 2011-01-10, 2011-0…
## $ customer.id    <dbl> 2, 2, 10, 10, 6, 6, 6, 6, 6, 22, 8, 8, 8, 8, 16, 16, 16…
## $ product.id     <dbl> 48, 52, 76, 52, 2, 50, 1, 4, 34, 26, 96, 66, 35, 72, 45…
## $ quantity       <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1…
## $ model          <chr> "Jekyll Carbon 2", "Trigger Carbon 2", "Beast of the Ea…
## $ category_1     <chr> "Mountain", "Mountain", "Mountain", "Mountain", "Road",…
## $ category_2     <chr> "Over Mountain", "Over Mountain", "Trail", "Over Mounta…
## $ frame_material <chr> "Carbon", "Carbon", "Aluminum", "Carbon", "Carbon", "Ca…
## $ price          <dbl> 6070, 5970, 2770, 5970, 10660, 3200, 12790, 5330, 1570,…
## $ bikeshop.name  <chr> "Ithaca Mountain Climbers", "Ithaca Mountain Climbers",…
## $ location       <chr> "Ithaca, NY", "Ithaca, NY", "Kansas City, KS", "Kansas …
## $ city           <chr> "Ithaca", "Ithaca", "Kansas City", "Kansas City", "Loui…
## $ state          <chr> "NY", "NY", "KS", "KS", "KY", "KY", "KY", "KY", "KY", "…

5. Price overview

Top 10 Most Expensive Models

result_desc <- bike_orderlines_bikeshops_joined %>%
  select(model, price) %>%
  distinct() %>%
  arrange(desc(price)) %>%
  head(10)

kable(result_desc, caption = "Top 10 Most Expensive Bike Models")
Top 10 Most Expensive Bike Models
model price
Supersix Evo Black Inc. 12790
Scalpel-Si Black Inc. 12790
Habit Hi-Mod Black Inc. 12250
F-Si Black Inc. 11190
Supersix Evo Hi-Mod Team 10660
Synapse Hi-Mod Disc Black Inc. 9590
F-Si Hi-Mod Team 9060
Scalpel-Si Race 9060
Trigger Carbon 1 8200
Supersix Evo Hi-Mod Dura Ace 1 7990

Bottom 10 Least Expensive Models

result_asc <- bike_orderlines_bikeshops_joined %>%
  select(model, price) %>%
  distinct() %>%
  arrange(price) %>%
  head(10)

kable(result_asc, caption = "Top 10 Least Expensive Bike Models")
Top 10 Least Expensive Bike Models
model price
Catalyst 4 415
Catalyst 3 480
Catalyst 2 585
Catalyst 1 705
Trail 5 815
CAAD8 Claris 815
Synapse Claris 870
Trail 4 980
Synapse Sora 1030
CAAD8 Sora 1030

6. Price analysis and summary statistics

# Calculate summary statistics
price_summary <- bike_orderlines_bikeshops_joined %>%
  select(price) %>%
  distinct() %>%
  summarise(
    Min = min(price, na.rm = TRUE),
    Mean = mean(price, na.rm = TRUE),
    Median = median(price, na.rm = TRUE),
    Max = max(price, na.rm = TRUE),
    Count_Above_Mean = sum(price > mean(price, na.rm = TRUE))
  )

kable(price_summary, caption = "Price Summary Statistics", digits = 0)
Price Summary Statistics
Min Mean Median Max Count_Above_Mean
415 3946 2700 12790 19

Top 10 Most Expensive Models

top_10_expensive <- bike_orderlines_bikeshops_joined %>%
  select(model, price) %>%
  distinct() %>%
  arrange(desc(price)) %>%
  head(10)

kable(top_10_expensive, caption = "Top 10 Most Expensive Bikes")
Top 10 Most Expensive Bikes
model price
Supersix Evo Black Inc. 12790
Scalpel-Si Black Inc. 12790
Habit Hi-Mod Black Inc. 12250
F-Si Black Inc. 11190
Supersix Evo Hi-Mod Team 10660
Synapse Hi-Mod Disc Black Inc. 9590
F-Si Hi-Mod Team 9060
Scalpel-Si Race 9060
Trigger Carbon 1 8200
Supersix Evo Hi-Mod Dura Ace 1 7990

Models Above Average Price (Summary)

result_above_mean <- bike_orderlines_bikeshops_joined %>%
  filter(price > mean(price, na.rm = TRUE)) %>%
  select(model, price) %>%
  distinct() %>%
  arrange(desc(price))

# Show count only
cat("Total models above average price:", nrow(result_above_mean), "\n")
## Total models above average price: 41
cat("Price range:", min(result_above_mean$price), "-", max(result_above_mean$price))
## Price range: 3730 - 12790