En este ejercicio vamos a intentar

Primero leo mi archivo de residuos. Como he avisado, tengo que especificar que el separador es “;”

residuos<-read.csv("residuos.csv",sep=";")

Voy a verificar las columnas: me interesan Tipo y Total.

colnames(residuos)
## [1] "Tipo"        "Comunidades" "periodo"     "Total"

Ahora voy a comprobar si puedo averiguar con un boxplot cuál ha sido el residuo más generado. Hago un boxplot por tipo. Tengo registros de varios años de cada tipo de residuo así que puedo hacerlo.

boxplot(Total~Tipo,data=residuos)

Veo que hay varias columnas con niveles muy altos en comparación con otros que tienen niveles muy bajos. Pero es difícil verlo porque hay muchos tipos de residuos y no me aparecen los nombres. Lo que voy a hacer entonces es intentar ver los nombres de esos tipos en una lista:

residuos$Tipo
##   [1] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [2] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [3] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [4] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [5] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [6] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [7] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [8] 1011 Residuos domésticos y similares (domésticos y vías públicas)                        
##   [9] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [10] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [11] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [12] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [13] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [14] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [15] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [16] 1012 Residuos domésticos voluminosos mezclados (enseres domésticos)                      
##  [17] 06 Residuos metálicos                                                                    
##  [18] 06 Residuos metálicos                                                                    
##  [19] 06 Residuos metálicos                                                                    
##  [20] 06 Residuos metálicos                                                                    
##  [21] 06 Residuos metálicos                                                                    
##  [22] 06 Residuos metálicos                                                                    
##  [23] 06 Residuos metálicos                                                                    
##  [24] 06 Residuos metálicos                                                                    
##  [25] 071 Residuos de vidrio                                                                   
##  [26] 071 Residuos de vidrio                                                                   
##  [27] 071 Residuos de vidrio                                                                   
##  [28] 071 Residuos de vidrio                                                                   
##  [29] 071 Residuos de vidrio                                                                   
##  [30] 071 Residuos de vidrio                                                                   
##  [31] 071 Residuos de vidrio                                                                   
##  [32] 071 Residuos de vidrio                                                                   
##  [33] 072 Residuos de papel y cartón                                                           
##  [34] 072 Residuos de papel y cartón                                                           
##  [35] 072 Residuos de papel y cartón                                                           
##  [36] 072 Residuos de papel y cartón                                                           
##  [37] 072 Residuos de papel y cartón                                                           
##  [38] 072 Residuos de papel y cartón                                                           
##  [39] 072 Residuos de papel y cartón                                                           
##  [40] 072 Residuos de papel y cartón                                                           
##  [41] 074 Residuos de plásticos                                                                
##  [42] 074 Residuos de plásticos                                                                
##  [43] 074 Residuos de plásticos                                                                
##  [44] 074 Residuos de plásticos                                                                
##  [45] 074 Residuos de plásticos                                                                
##  [46] 074 Residuos de plásticos                                                                
##  [47] 074 Residuos de plásticos                                                                
##  [48] 074 Residuos de plásticos                                                                
##  [49] 075 Residuos de Madera                                                                   
##  [50] 075 Residuos de Madera                                                                   
##  [51] 075 Residuos de Madera                                                                   
##  [52] 075 Residuos de Madera                                                                   
##  [53] 075 Residuos de Madera                                                                   
##  [54] 075 Residuos de Madera                                                                   
##  [55] 075 Residuos de Madera                                                                   
##  [56] 075 Residuos de Madera                                                                   
##  [57] 076 Residuos textiles                                                                    
##  [58] 076 Residuos textiles                                                                    
##  [59] 076 Residuos textiles                                                                    
##  [60] 076 Residuos textiles                                                                    
##  [61] 076 Residuos textiles                                                                    
##  [62] 076 Residuos textiles                                                                    
##  [63] 076 Residuos textiles                                                                    
##  [64] 076 Residuos textiles                                                                    
##  [65] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [66] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [67] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [68] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [69] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [70] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [71] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [72] 082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
##  [73] 0841 Residuos de pilas y acumuladores                                                    
##  [74] 0841 Residuos de pilas y acumuladores                                                    
##  [75] 0841 Residuos de pilas y acumuladores                                                    
##  [76] 0841 Residuos de pilas y acumuladores                                                    
##  [77] 0841 Residuos de pilas y acumuladores                                                    
##  [78] 0841 Residuos de pilas y acumuladores                                                    
##  [79] 0841 Residuos de pilas y acumuladores                                                    
##  [80] 0841 Residuos de pilas y acumuladores                                                    
##  [81] 09 Residuos animales y vegetales                                                         
##  [82] 09 Residuos animales y vegetales                                                         
##  [83] 09 Residuos animales y vegetales                                                         
##  [84] 09 Residuos animales y vegetales                                                         
##  [85] 09 Residuos animales y vegetales                                                         
##  [86] 09 Residuos animales y vegetales                                                         
##  [87] 09 Residuos animales y vegetales                                                         
##  [88] 09 Residuos animales y vegetales                                                         
##  [89] 1021 Envases mixtos y embalajes mezclados                                                
##  [90] 1021 Envases mixtos y embalajes mezclados                                                
##  [91] 1021 Envases mixtos y embalajes mezclados                                                
##  [92] 1021 Envases mixtos y embalajes mezclados                                                
##  [93] 1021 Envases mixtos y embalajes mezclados                                                
##  [94] 1021 Envases mixtos y embalajes mezclados                                                
##  [95] 1021 Envases mixtos y embalajes mezclados                                                
##  [96] 1021 Envases mixtos y embalajes mezclados                                                
##  [97] 11 Lodos comunes (secos)                                                                 
##  [98] 11 Lodos comunes (secos)                                                                 
##  [99] 11 Lodos comunes (secos)                                                                 
## [100] 11 Lodos comunes (secos)                                                                 
## [101] 11 Lodos comunes (secos)                                                                 
## [102] 11 Lodos comunes (secos)                                                                 
## [103] 11 Lodos comunes (secos)                                                                 
## [104] 11 Lodos comunes (secos)                                                                 
## [105] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [106] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [107] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [108] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [109] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [110] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [111] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [112] 12 Residuos minerales (incluye residuos de construcción y demolición)                    
## [113] 18 Otros                                                                                 
## [114] 18 Otros                                                                                 
## [115] 18 Otros                                                                                 
## [116] 18 Otros                                                                                 
## [117] 18 Otros                                                                                 
## [118] 18 Otros                                                                                 
## [119] 18 Otros                                                                                 
## [120] 18 Otros                                                                                 
## [121] TOTAL RESIDUOS MEZCLADOS                                                                 
## [122] TOTAL RESIDUOS MEZCLADOS                                                                 
## [123] TOTAL RESIDUOS MEZCLADOS                                                                 
## [124] TOTAL RESIDUOS MEZCLADOS                                                                 
## [125] TOTAL RESIDUOS MEZCLADOS                                                                 
## [126] TOTAL RESIDUOS MEZCLADOS                                                                 
## [127] TOTAL RESIDUOS MEZCLADOS                                                                 
## [128] TOTAL RESIDUOS MEZCLADOS                                                                 
## [129] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [130] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [131] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [132] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [133] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [134] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [135] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [136] TOTAL RESIDUOS DE RECOGIDA SEPARADA                                                      
## [137] TOTAL RESIDUOS                                                                           
## [138] TOTAL RESIDUOS                                                                           
## [139] TOTAL RESIDUOS                                                                           
## [140] TOTAL RESIDUOS                                                                           
## [141] TOTAL RESIDUOS                                                                           
## [142] TOTAL RESIDUOS                                                                           
## [143] TOTAL RESIDUOS                                                                           
## [144] TOTAL RESIDUOS                                                                           
## 18 Levels: 06 Residuos metálicos ... TOTAL RESIDUOS MEZCLADOS

En esta lista veo que a partir del dato 121 son totales calculados como os habíamos comentado. Por lo tanto en un objeto diferente me voy a quedar solamente con las 120 primeras filas, que son los datos brutos que yo tengo que analizar.

residuos_seleccion<-residuos[1:120,] #le digo entre corchetes que me saque las filas entre la 1 y la 120

#R sabe que me refieo a filas porque tras el intervalo especificado hay una coma que me separa de la referencia a las columnas.

Vuelvo a realizar un boxplot, pero con mis datos brutos sin interferencias:

boxplot(Total~Tipo,data=residuos_seleccion)

Este boxplot me sigue indicando que hay un tipo de residuo muy por encima de todos los demás. Está en la décima posición. Y sé que mis tipos están representados alfabéticamente. Por lo que en caso de un gráfico tan difícil voy a optar simplemente por separar estos datos en dos: uno por encima de 10 millones de toneladas que me permita visualizar ese tipo por separado (es el único con una cifra tan grande) y otra por debajo, que me permita identificar el segundo residuo en peso que generamos en España.

subset(residuos_seleccion,Total>10000000)
##                                                                Tipo
## 1 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 2 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 3 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 4 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 5 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 6 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 7 1011 Residuos domésticos y similares (domésticos y vías públicas)
## 8 1011 Residuos domésticos y similares (domésticos y vías públicas)
##      Comunidades periodo    Total
## 1 Total nacional    2017 17457709
## 2 Total nacional    2016 17141367
## 3 Total nacional    2015 17106176
## 4 Total nacional    2014 16886941
## 5 Total nacional    2013 17320704
## 6 Total nacional    2012 17911466
## 7 Total nacional    2011 18291848
## 8 Total nacional    2010 18808667

Con esta selección en pantalla compruebo que son los residuos domésticos a los que se refiere esa categoría tan elevada.

Vamos a por la segunda. Selecciono los datos por debajo de 1000000 y lo vuelvo a visualizar:

residuos2<-subset(residuos_seleccion,Total<10000000)
boxplot(Total~Tipo,data=residuos2)

Destaca la tercera categoría. Comprobando que esta categoria es la única que tiene valores superiores a 1 millón, realizando de nuevo una selección de los datos por encima de esta cantidad, obtendré la segunda categoría en peso:

subset(residuos2,Total>1000000)
##                              Tipo    Comunidades periodo   Total
## 33 072 Residuos de papel y cartón Total nacional    2017 1061380
## 34 072 Residuos de papel y cartón Total nacional    2016 1021166
## 35 072 Residuos de papel y cartón Total nacional    2015 1008959
## 38 072 Residuos de papel y cartón Total nacional    2012 1085574
## 39 072 Residuos de papel y cartón Total nacional    2011 1266397
## 40 072 Residuos de papel y cartón Total nacional    2010 1467365

Lo segundo que más generamos es por tanto papel y cartón.

Evidentemente no es la solución más elegante. Sería más fácil hacer un resumen de los datos que me sume los valores por tipo, es decir acumulando los valores de todos estos años para cada tipo y luego utilizar una función que me los ordene. Si tenéis interés en profundizar, esto puede ser útil:

totales<-aggregate(Total~Tipo,data=residuos, FUN=sum) #agrego mis datos residuo por cada tipo, sumando todos los datos de cada tipo que vea

library(dplyr) #cargo la librería de manipulación de datos del tidyverse  porque hay una función fácil de usar.
## Warning: package 'dplyr' was built under R version 3.6.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
arrange(totales,Total) #le especifico como primer argumento el objeto con filas a ordenar, y en segundo lugar la columna que uso para ordenar los datos.
##                                                                                         Tipo
## 1                                                      0841 Residuos de pilas y acumuladores
## 2                                                                   11 Lodos comunes (secos)
## 3                                                                      076 Residuos textiles
## 4                                                                      06 Residuos metálicos
## 5  082 y 0843 Equipos eléctricos desechados y Componentes de equipos eléctrónicos desechados
## 6                                                                                   18 Otros
## 7                                                                  074 Residuos de plásticos
## 8                                                                     075 Residuos de Madera
## 9                      12 Residuos minerales (incluye residuos de construcción y demolición)
## 10                                                 1021 Envases mixtos y embalajes mezclados
## 11                       1012 Residuos domésticos voluminosos mezclados (enseres domésticos)
## 12                                                                    071 Residuos de vidrio
## 13                                                          09 Residuos animales y vegetales
## 14                                                            072 Residuos de papel y cartón
## 15                                                       TOTAL RESIDUOS DE RECOGIDA SEPARADA
## 16                         1011 Residuos domésticos y similares (domésticos y vías públicas)
## 17                                                                  TOTAL RESIDUOS MEZCLADOS
## 18                                                                            TOTAL RESIDUOS
##        Total
## 1      24150
## 2     102845
## 3     206442
## 4     241779
## 5     380956
## 6     469691
## 7     548233
## 8    1016806
## 9    3564087
## 10   4925597
## 11   5019635
## 12   6097442
## 13   6813149
## 14   8875963
## 15  33267140
## 16 140924878
## 17 145944513
## 18 179211653