datos_argentina/R/valor_bruto_produccion.R at master · karbartolome/datos_argentina · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
library(ggplot2)
library(dplyr)
library(janitor)
library(ggplot2)
library(gganimate)
library(tidyr)
library(png)
library(magick)
library(ggimage)
library(zoo)

# Datos
actividad <- readxl::read_excel('valor_bruto_actividad.xlsx') %>%
  mutate(trimestre=as.yearqtr(paste(año,trimestre))) %>% select(-año)

# Porcentualmente
actividad<-actividad %>%
  mutate_at(names(actividad[,2:17]),as.numeric) %>%
  #adorn_totals(where="col") %>%
  adorn_percentages("row")

actividad <- gather(data = actividad, key = "actividad", value = "porcentaje", 2:17) %>%
  group_by(trimestre) %>%
  arrange(desc(porcentaje)) %>%
  mutate(rank=row_number()) %>%
  filter(rank <= 10) %>%
  mutate(
    actividad = case_when(
      actividad == "Pesca" ~ "Pesca",
      actividad == "Industria.manufacturera" ~ "Industria manufacturera",
      actividad == "Agricultura..ganadería..caza.y.silvicultura" ~ "Agricultura, ganadería, caza y silvicultura",
      actividad == "Comercio.mayorista..minorista.y.reparaciones" ~ "Comercio mayorista, minorísta y reparaciones",
      actividad == "Actividades.inmobiliarias..empresariales.y.de.alquiler" ~ "Inmobiliarias, empresariales y alquileres",
      actividad ==  "Transporte.y.comunicaciones" ~ "Transporte y comunicaciones",
      actividad == "Explotación.de.minas.y.canteras" ~ "Explotación de minas y canteras",
      actividad == "Administración.pública.y.defensa..planes.de.seguridad.social.de.afiliación.obligatoria" ~ "Admin. Pública, defensa, seguridad social",
      actividad == "Intermediación.financiera" ~ "Intermediación financiera",
      actividad == "Enseñanza" ~ "Enseñanza",
      actividad == "Construcción" ~ "Construcción",
      actividad == "Servicios.sociales.y.de.salud" ~ "Servicios sociales y de salud",
      TRUE ~ actividad
    )
  )

# íconos: https://icons8.com/
actividad <- actividad %>%
  mutate(imagen=case_when(
    actividad=="Industria manufacturera" ~ "https://img.icons8.com/ios-glyphs/30/000000/factory-1.png",
    actividad=="Agricultura, ganadería, caza y silvicultura" ~ "https://img.icons8.com/ios-glyphs/30/000000/plant-under-rain.png",
    actividad=="Comercio mayorista, minorista y reparaciones"  ~ "https://img.icons8.com/ios-glyphs/30/000000/shopping-cart.png",
    actividad=="Actividades inmobiliarias, empresariales y de alquiler"  ~ "https://img.icons8.com/ios-glyphs/30/000000/equal-housing-opportunity.png",
    actividad=="Transporte y comunicaciones"  ~ "https://img.icons8.com/ios-glyphs/30/000000/train.png",
    actividad=="Administración pública y defensa; planes de seguridad social de afiliación obligatoria"  ~ "https://img.icons8.com/ios-glyphs/30/000000/museum.png",
    actividad=="Explotación de minas y canteras"  ~ "https://img.icons8.com/ios-glyphs/30/000000/mine-cart.png",
    actividad=="Enseñanza"  ~ "https://img.icons8.com/ios-glyphs/30/000000/school.png",
    actividad=="Intermediación financiera"  ~ "https://img.icons8.com/ios-glyphs/30/000000/coin-in-hand.png",
    actividad=="Construcción"  ~ "https://img.icons8.com/ios-glyphs/30/000000/fork-lift.png",
    actividad=="Servicios sociales y de salud"  ~ "https://img.icons8.com/ios-glyphs/30/000000/hospital-3.png",
    TRUE~""
    ))

barchartrace <- ggplot(actividad, aes(x = -rank, y = porcentaje, fill = actividad)) +
  geom_tile(aes(y = porcentaje / 2, height = porcentaje, fill = actividad), width =
              0.8) +
  coord_flip(clip = "off") +
  geom_text(
    aes(label = actividad),
    colour = "black",
    fontface = "bold",
    hjust = "left",
    nudge_y = 0.005,
    size = 3.4
  ) +
  geom_image(aes(image=imagen),size=0.1, nudge_x = 2)+
  scale_fill_viridis_d(option = "B") +
  ylim(0, 0.42) +
  transition_states(trimestre,
                    transition_length = 3,
                    state_length = 3) +
  theme(
    panel.grid.minor.y = element_blank(),
    panel.background = element_blank(),
    legend.position = "none",
    legend.title = element_blank(),
    plot.title = element_text(size = 18),
    plot.subtitle = element_text(size = 13),
    axis.text.y = element_blank(),
    axis.title.y = element_blank()
  ) +
  labs(
    title = 'Composición de la Producción Argentina',
    subtitle = 'Trimestre: {closest_state}',
    # subtitle='Trimestre: {current_frame}',
    caption = "Elaboración propia en base a datos del INDEC, #RstatsES, @karbartolome",
    y = "% sobre el total de la producción"
  )


animate(barchartrace,duration=13, nframes = 100, fps = 50)