En el siguiente reporte se presentaran algunas de las mejores marcas de ropa del mundo de las cuales se hara un analisis y se sacaran las 5 mejores.
se podria decir que las mejores marcas o de mejores prestigio son las que provienen de italia, como:
Gucci
Versace
Prada
Armani
library(readxl)
## Warning: package 'readxl' was built under R version 4.4.2
mejores_marcas_ropa <- read_excel("~/mejores_marcas_ropa.xlsx")
head(mejores_marcas_ropa)
## # A tibble: 6 × 4
## Marca `País de Origen` `Año de Fundación` `Segmento de Mercado`
## <chr> <chr> <dbl> <chr>
## 1 Louis Vuitton Francia 1854 Lujo
## 2 Gucci Italia 1921 Lujo
## 3 Chanel Francia 1910 Lujo
## 4 Hermès Francia 1837 Lujo
## 5 Prada Italia 1913 Lujo
## 6 Versace Italia 1978 Lujo
library(readxl)
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.2
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
# Cargar el archivo
mejores_marcas_ropa <- read_excel("~/mejores_marcas_ropa.xlsx")
# Seleccionar las 5 mejores marcas (ajusta según criterio)
top_5_marcas <- mejores_marcas_ropa %>%
arrange(desc(`Año de Fundación`)) %>% # Ordenar por antigüedad como ejemplo
head(5) # Seleccionar las 5 mejores
# Mostrar el resultado
print(top_5_marcas)
## # A tibble: 5 × 4
## Marca `País de Origen` `Año de Fundación` `Segmento de Mercado`
## <chr> <chr> <dbl> <chr>
## 1 Tom Ford EE.UU. 2005 Lujo
## 2 Versace Italia 1978 Lujo
## 3 Armani Italia 1975 Lujo
## 4 Calvin Klein EE.UU. 1968 Premium
## 5 Ralph Lauren EE.UU. 1967 Premium