Gráfico de Áreas Apiladas

Cristina Rodríguez

---

He decidido utilizar un gráfico de áreas apiladas que nos permitirá visualizar cómo cambia la composición del gasto personal en Estados Unidos a lo largo del tiempo en diferentes categorías: Food and Tobacco”, “Clothing”, “Household Operations”, “Medical and Health”, y “Personal Care”.

A través de este gráfico podemos observar qué gastos son más relevantes en diferentes años y cómo varía la distribución del gasto a lo largo de las décadas. Es una forma efectiva de comparar y analizar tendencias en el gasto personal a lo largo del tiempo.

Cargar el paquete datasets, Cargar el paquete reshape2,ggplot2 Y el conjunto de datos USPersonalExpenditure

library(datasets)

library(reshape2)

## Warning: package 'reshape2' was built under R version 4.3.2

library(ggplot2)

data("USPersonalExpenditure")

Convertir el conjunto de datos al formato largo

USPersonalExpenditure_long <- melt(USPersonalExpenditure, id.vars = "X")

Visualizar la estructura de los datos

head(USPersonalExpenditure_long)

##                  Var1 Var2  value
## 1    Food and Tobacco 1940 22.200
## 2 Household Operation 1940 10.500
## 3  Medical and Health 1940  3.530
## 4       Personal Care 1940  1.040
## 5   Private Education 1940  0.341
## 6    Food and Tobacco 1945 44.500

str(USPersonalExpenditure_long)

## 'data.frame':    25 obs. of  3 variables:
##  $ Var1 : Factor w/ 5 levels "Food and Tobacco",..: 1 2 3 4 5 1 2 3 4 5 ...
##  $ Var2 : int  1940 1940 1940 1940 1940 1945 1945 1945 1945 1945 ...
##  $ value: num  22.2 10.5 3.53 1.04 0.341 44.5 15.5 5.76 1.98 0.974 ...

Crear el gráfico de áreas apiladas

ggplot(USPersonalExpenditure_long, aes(x = Var2, y = value, fill = Var1)) +
  geom_area() +
  labs(title = "Distribución de Gastos Personales en Estados Unidos (1940-1960)",
       x = "Año",
       y = "Gasto",
       fill = "Categoría") +
  scale_x_continuous(breaks = seq(1940, 1960, by = 5)) + # Añadir marcas de tiempo cada 5 años
  theme_minimal()

Análisis del gráfico literal:

El gráfico muestra la “Distribución de Gastos Personales en Estados Unidos (1940-1960)”. Aquí está una explicación de los componentes del gráfico:

Eje X (Año) representa los años desde 1940 hasta 1960. Cada marca en el eje x representa un año específico, con marcas cada 5 años para mayor claridad.
Eje Y (Gasto) representa el gasto en dólares. Muestra la cantidad total de gasto en cada año, acumulando los diferentes tipos de gastos representados en el gráfico.

Conclusión

Durante el período de 1940 a 1960, este gráfico ilustra la distribución del gasto personal en Estados Unidos, revelando tendencias significativas en los patrones de gasto. A lo largo de estas dos décadas, el gasto personal experimenta un crecimiento constante. Sin embargo, la composición del gasto varía considerablemente de un año a otro y entre diferentes categorías de gastos. La educación privada muestra una estabilidad notable a lo largo de las dos décadas analizadas, apenas cambiando a lo largo del tiempo. Por otro lado, se observa un incremento claro y constante en el gasto relacionado con el cuidado personal y la atención médica desde el comienzo del período estudiado. Esta tendencia continúa de manera exponencial, especialmente en el ámbito del cuidado del hogar y, en particular, en la categoría de alimentos y tabaco, donde el crecimiento es especialmente notable.