Research Question

Which country has the most top global brands?

Introduction

This analysis examines which countries have the most top global fashion brands, based on the dataset of top brands from 2001 to 2021. We will visualize the number of brands per country using a bar graph.

Load Libraries

library(readxl)
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.3.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.3

Load Dataset

# Load dataset
file_path <- "Dataset Global Fashion Brands Brand Equity Ranking Growth Rate  COO ROO 2001-2021.xlsx"
df <- read_excel(file_path, sheet = "Dataset Fashion Brands 2001-202")

Data Processing

# Count the number of brands per country
brand_counts <- df %>%
  group_by(BrandOriginCountry) %>%
  summarise(Count = n()) %>%
  arrange(desc(Count)) %>%  # Sort from largest to smallest
  mutate(Percentage = round(Count / sum(Count) * 100, 1),  # Calculate percentage
         Label = paste0(BrandOriginCountry, "\n", Count, " (", Percentage, "%)")) # Create label

Visualization: Number of Global Brands by Country

# Bar Graph: Number of Fashion Brands per Country
ggplot(brand_counts, aes(x = reorder(BrandOriginCountry, Count), y = Count, fill = Count)) +
  geom_bar(stat = "identity") +
  coord_flip() +  # Flip for better readability
  theme_minimal() +
  labs(title = "Number of Global Fashion Brands by Country", x = "Country", y = "Brand Count") +
  scale_fill_gradient(low = "lightpink", high = "red")  # Gradient from light pink to red

Conclusion

The analysis provides insights into the distribution of top global fashion brands across different countries. The bar graph visually highlights which countries dominate the fashion industry in terms of brand presence.