Introduction

This report shows the ranking history of Louis Vuitton from 2001 to 2021.

Data Analysis

Let’s visualize the brand ranking trend. install_tinytex()

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.3
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(readxl)
library(tidyr)
## Warning: package 'tidyr' was built under R version 4.3.3
# Load dataset
df<- read_excel("C:/Users/Mindy/Downloads/Dataset Global Fashion Brands Brand Equity Ranking Growth Rate  COO ROO 2001-2021.xlsx")


# Filter for Louis Vuitton rankings
lv_data <- df %>%
  filter(BrandName == "Louis Vuitton") %>%
  select(starts_with("Rank")) %>%
  pivot_longer(cols = everything(), names_to = "Year", values_to = "Rank") %>%
  mutate(Year = as.numeric(gsub("Rank", "", Year))) %>%
  filter(!is.na(Rank))

# Create plot
ggplot(lv_data, aes(x = Year, y = Rank)) +
  geom_line(color = "blue", size = 1) +
  geom_point(color = "red", size = 3) +
  geom_text(aes(label = Rank), vjust = -0.5, size = 5) +
  scale_y_reverse(breaks = seq(1, max(lv_data$Rank, na.rm = TRUE), by = 5)) +
  theme_minimal() +
  labs(title = "Louis Vuitton Ranking History (2001-2021)",
       x = "Year", y = "Brand Rank")
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Conclusion

The visualization above shows how Louis Vuitton’s ranking has changed over time.