library(summarytools)
## Warning: package 'summarytools' was built under R version 4.2.3
library(reshape2)
## Warning: package 'reshape2' was built under R version 4.2.3
library("readxl")
## Warning: package 'readxl' was built under R version 4.2.3
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.2.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(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.2.3
library(tidyr)
## Warning: package 'tidyr' was built under R version 4.2.3
##
## Attaching package: 'tidyr'
## The following object is masked from 'package:reshape2':
##
## smiths
file_path1 <- "C:/Users/PLOZANO/Desktop/RECURSOS DE SPA 2023 2024/tesis 2024/Tesis de 10 semestre PPA 2024 2024/ELIANA/TABULACION1.xlsx"
dataeliana1<- read_excel(file_path1)
dataeliana1
## # A tibble: 61 × 23
## N Locales Tiempo P3 P4 P5 P6 P7 P8 P9 P10 P11
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <dbl> <chr> <chr> <chr> <chr>
## 1 1 Panaderias 6-10 … Nunca En a… Esca… Rara… 3 Bajo Plás… Meno… Rell…
## 2 2 Panaderias 11-15… Nunca Míni… Inad… Ocas… 4 Bajo Pape… Meno… Rell…
## 3 3 Panaderias 6-10 … Nunca En a… Inad… Nunca 4 Mode… Pape… Meno… Rell…
## 4 4 Panaderias 11-15… Nunca Míni… Inad… Ocas… 2 Bajo Plás… Meno… Rell…
## 5 5 Helados 1-5 a… Nunca En a… Esca… Nunca 1 Bajo Pape… Meno… Rell…
## 6 6 Helados 1-5 a… Nunca Míni… Esca… Rara… 1 Muy … Pape… Meno… Bota…
## 7 7 Helados 11-15… Nunca Míni… Esca… Nunca 2 Bajo Plás… Meno… Bota…
## 8 8 Restauran… 1-5 a… Nunca Míni… Esca… Ocas… 3 Muy … Plás… Meno… Rell…
## 9 9 Restauran… 1-5 a… Nunca Míni… Esca… Rara… 3 Muy … Pape… Meno… Rell…
## 10 10 Restauran… 1-5 a… Nunca Ocas… Falt… Nunca 2 Bajo Pape… Meno… Bota…
## # ℹ 51 more rows
## # ℹ 11 more variables: P12 <chr>, P13 <chr>, P14 <chr>, P15 <chr>, P16 <chr>,
## # P17 <chr>, P18 <chr>, P19 <chr>, P20 <chr>, P21 <chr>, P22 <chr>
# Supongamos que tu data frame se llama df
tabla_cruzada <- table(dataeliana1$Locales, dataeliana1$P9, dataeliana1$P3)
tabla_porcentajes1 <- prop.table(tabla_cruzada)
# Para visualizar la tabla cruzada
print(tabla_porcentajes1)
## , , = Nunca
##
##
## Materia orgánica (restos de alimentos, desechos biodegradables)
## Carne 0.08196721
## Cocos 0.26229508
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.22950820
## Librería 0.00000000
## Megatodo 0.00000000
## Panaderias 0.00000000
## Restaurante 0.03278689
##
## Papel/cartón (envases tetra pak, cajas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.01639344
## Helados 0.03278689
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.01639344
## Panaderias 0.03278689
## Restaurante 0.04918033
##
## Plástico (botellas, envoltorios, fundas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.03278689
## Helados 0.01639344
## Legumbres 0.00000000
## Librería 0.03278689
## Megatodo 0.01639344
## Panaderias 0.03278689
## Restaurante 0.04918033
##
## , , = Ocasionalmente
##
##
## Materia orgánica (restos de alimentos, desechos biodegradables)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.00000000
## Panaderias 0.00000000
## Restaurante 0.00000000
##
## Papel/cartón (envases tetra pak, cajas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.00000000
## Panaderias 0.00000000
## Restaurante 0.00000000
##
## Plástico (botellas, envoltorios, fundas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.01639344
## Panaderias 0.00000000
## Restaurante 0.00000000
##
## , , = Raramente
##
##
## Materia orgánica (restos de alimentos, desechos biodegradables)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.00000000
## Panaderias 0.00000000
## Restaurante 0.00000000
##
## Papel/cartón (envases tetra pak, cajas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.00000000
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.00000000
## Megatodo 0.00000000
## Panaderias 0.00000000
## Restaurante 0.00000000
##
## Plástico (botellas, envoltorios, fundas)
## Carne 0.00000000
## Cocos 0.00000000
## Comisariato 0.01639344
## Helados 0.00000000
## Legumbres 0.00000000
## Librería 0.01639344
## Megatodo 0.01639344
## Panaderias 0.00000000
## Restaurante 0.00000000
# Derretir la tabla cruzada a un formato largo
tabla_derretida10 <- melt(tabla_porcentajes1)
tabla_derretida10
## Var1 Var2
## 1 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 2 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 3 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 4 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 5 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 6 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 7 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 8 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 9 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 10 Carne Papel/cartón (envases tetra pak, cajas)
## 11 Cocos Papel/cartón (envases tetra pak, cajas)
## 12 Comisariato Papel/cartón (envases tetra pak, cajas)
## 13 Helados Papel/cartón (envases tetra pak, cajas)
## 14 Legumbres Papel/cartón (envases tetra pak, cajas)
## 15 Librería Papel/cartón (envases tetra pak, cajas)
## 16 Megatodo Papel/cartón (envases tetra pak, cajas)
## 17 Panaderias Papel/cartón (envases tetra pak, cajas)
## 18 Restaurante Papel/cartón (envases tetra pak, cajas)
## 19 Carne Plástico (botellas, envoltorios, fundas)
## 20 Cocos Plástico (botellas, envoltorios, fundas)
## 21 Comisariato Plástico (botellas, envoltorios, fundas)
## 22 Helados Plástico (botellas, envoltorios, fundas)
## 23 Legumbres Plástico (botellas, envoltorios, fundas)
## 24 Librería Plástico (botellas, envoltorios, fundas)
## 25 Megatodo Plástico (botellas, envoltorios, fundas)
## 26 Panaderias Plástico (botellas, envoltorios, fundas)
## 27 Restaurante Plástico (botellas, envoltorios, fundas)
## 28 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 29 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 30 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 31 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 32 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 33 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 34 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 35 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 36 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 37 Carne Papel/cartón (envases tetra pak, cajas)
## 38 Cocos Papel/cartón (envases tetra pak, cajas)
## 39 Comisariato Papel/cartón (envases tetra pak, cajas)
## 40 Helados Papel/cartón (envases tetra pak, cajas)
## 41 Legumbres Papel/cartón (envases tetra pak, cajas)
## 42 Librería Papel/cartón (envases tetra pak, cajas)
## 43 Megatodo Papel/cartón (envases tetra pak, cajas)
## 44 Panaderias Papel/cartón (envases tetra pak, cajas)
## 45 Restaurante Papel/cartón (envases tetra pak, cajas)
## 46 Carne Plástico (botellas, envoltorios, fundas)
## 47 Cocos Plástico (botellas, envoltorios, fundas)
## 48 Comisariato Plástico (botellas, envoltorios, fundas)
## 49 Helados Plástico (botellas, envoltorios, fundas)
## 50 Legumbres Plástico (botellas, envoltorios, fundas)
## 51 Librería Plástico (botellas, envoltorios, fundas)
## 52 Megatodo Plástico (botellas, envoltorios, fundas)
## 53 Panaderias Plástico (botellas, envoltorios, fundas)
## 54 Restaurante Plástico (botellas, envoltorios, fundas)
## 55 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 56 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 57 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 58 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 59 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 60 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 61 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 62 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 63 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 64 Carne Papel/cartón (envases tetra pak, cajas)
## 65 Cocos Papel/cartón (envases tetra pak, cajas)
## 66 Comisariato Papel/cartón (envases tetra pak, cajas)
## 67 Helados Papel/cartón (envases tetra pak, cajas)
## 68 Legumbres Papel/cartón (envases tetra pak, cajas)
## 69 Librería Papel/cartón (envases tetra pak, cajas)
## 70 Megatodo Papel/cartón (envases tetra pak, cajas)
## 71 Panaderias Papel/cartón (envases tetra pak, cajas)
## 72 Restaurante Papel/cartón (envases tetra pak, cajas)
## 73 Carne Plástico (botellas, envoltorios, fundas)
## 74 Cocos Plástico (botellas, envoltorios, fundas)
## 75 Comisariato Plástico (botellas, envoltorios, fundas)
## 76 Helados Plástico (botellas, envoltorios, fundas)
## 77 Legumbres Plástico (botellas, envoltorios, fundas)
## 78 Librería Plástico (botellas, envoltorios, fundas)
## 79 Megatodo Plástico (botellas, envoltorios, fundas)
## 80 Panaderias Plástico (botellas, envoltorios, fundas)
## 81 Restaurante Plástico (botellas, envoltorios, fundas)
## Var3 value
## 1 Nunca 0.08196721
## 2 Nunca 0.26229508
## 3 Nunca 0.00000000
## 4 Nunca 0.00000000
## 5 Nunca 0.22950820
## 6 Nunca 0.00000000
## 7 Nunca 0.00000000
## 8 Nunca 0.00000000
## 9 Nunca 0.03278689
## 10 Nunca 0.00000000
## 11 Nunca 0.00000000
## 12 Nunca 0.01639344
## 13 Nunca 0.03278689
## 14 Nunca 0.00000000
## 15 Nunca 0.00000000
## 16 Nunca 0.01639344
## 17 Nunca 0.03278689
## 18 Nunca 0.04918033
## 19 Nunca 0.00000000
## 20 Nunca 0.00000000
## 21 Nunca 0.03278689
## 22 Nunca 0.01639344
## 23 Nunca 0.00000000
## 24 Nunca 0.03278689
## 25 Nunca 0.01639344
## 26 Nunca 0.03278689
## 27 Nunca 0.04918033
## 28 Ocasionalmente 0.00000000
## 29 Ocasionalmente 0.00000000
## 30 Ocasionalmente 0.00000000
## 31 Ocasionalmente 0.00000000
## 32 Ocasionalmente 0.00000000
## 33 Ocasionalmente 0.00000000
## 34 Ocasionalmente 0.00000000
## 35 Ocasionalmente 0.00000000
## 36 Ocasionalmente 0.00000000
## 37 Ocasionalmente 0.00000000
## 38 Ocasionalmente 0.00000000
## 39 Ocasionalmente 0.00000000
## 40 Ocasionalmente 0.00000000
## 41 Ocasionalmente 0.00000000
## 42 Ocasionalmente 0.00000000
## 43 Ocasionalmente 0.00000000
## 44 Ocasionalmente 0.00000000
## 45 Ocasionalmente 0.00000000
## 46 Ocasionalmente 0.00000000
## 47 Ocasionalmente 0.00000000
## 48 Ocasionalmente 0.00000000
## 49 Ocasionalmente 0.00000000
## 50 Ocasionalmente 0.00000000
## 51 Ocasionalmente 0.00000000
## 52 Ocasionalmente 0.01639344
## 53 Ocasionalmente 0.00000000
## 54 Ocasionalmente 0.00000000
## 55 Raramente 0.00000000
## 56 Raramente 0.00000000
## 57 Raramente 0.00000000
## 58 Raramente 0.00000000
## 59 Raramente 0.00000000
## 60 Raramente 0.00000000
## 61 Raramente 0.00000000
## 62 Raramente 0.00000000
## 63 Raramente 0.00000000
## 64 Raramente 0.00000000
## 65 Raramente 0.00000000
## 66 Raramente 0.00000000
## 67 Raramente 0.00000000
## 68 Raramente 0.00000000
## 69 Raramente 0.00000000
## 70 Raramente 0.00000000
## 71 Raramente 0.00000000
## 72 Raramente 0.00000000
## 73 Raramente 0.00000000
## 74 Raramente 0.00000000
## 75 Raramente 0.01639344
## 76 Raramente 0.00000000
## 77 Raramente 0.00000000
## 78 Raramente 0.01639344
## 79 Raramente 0.01639344
## 80 Raramente 0.00000000
## 81 Raramente 0.00000000
print(tabla_derretida10)
## Var1 Var2
## 1 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 2 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 3 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 4 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 5 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 6 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 7 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 8 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 9 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 10 Carne Papel/cartón (envases tetra pak, cajas)
## 11 Cocos Papel/cartón (envases tetra pak, cajas)
## 12 Comisariato Papel/cartón (envases tetra pak, cajas)
## 13 Helados Papel/cartón (envases tetra pak, cajas)
## 14 Legumbres Papel/cartón (envases tetra pak, cajas)
## 15 Librería Papel/cartón (envases tetra pak, cajas)
## 16 Megatodo Papel/cartón (envases tetra pak, cajas)
## 17 Panaderias Papel/cartón (envases tetra pak, cajas)
## 18 Restaurante Papel/cartón (envases tetra pak, cajas)
## 19 Carne Plástico (botellas, envoltorios, fundas)
## 20 Cocos Plástico (botellas, envoltorios, fundas)
## 21 Comisariato Plástico (botellas, envoltorios, fundas)
## 22 Helados Plástico (botellas, envoltorios, fundas)
## 23 Legumbres Plástico (botellas, envoltorios, fundas)
## 24 Librería Plástico (botellas, envoltorios, fundas)
## 25 Megatodo Plástico (botellas, envoltorios, fundas)
## 26 Panaderias Plástico (botellas, envoltorios, fundas)
## 27 Restaurante Plástico (botellas, envoltorios, fundas)
## 28 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 29 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 30 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 31 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 32 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 33 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 34 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 35 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 36 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 37 Carne Papel/cartón (envases tetra pak, cajas)
## 38 Cocos Papel/cartón (envases tetra pak, cajas)
## 39 Comisariato Papel/cartón (envases tetra pak, cajas)
## 40 Helados Papel/cartón (envases tetra pak, cajas)
## 41 Legumbres Papel/cartón (envases tetra pak, cajas)
## 42 Librería Papel/cartón (envases tetra pak, cajas)
## 43 Megatodo Papel/cartón (envases tetra pak, cajas)
## 44 Panaderias Papel/cartón (envases tetra pak, cajas)
## 45 Restaurante Papel/cartón (envases tetra pak, cajas)
## 46 Carne Plástico (botellas, envoltorios, fundas)
## 47 Cocos Plástico (botellas, envoltorios, fundas)
## 48 Comisariato Plástico (botellas, envoltorios, fundas)
## 49 Helados Plástico (botellas, envoltorios, fundas)
## 50 Legumbres Plástico (botellas, envoltorios, fundas)
## 51 Librería Plástico (botellas, envoltorios, fundas)
## 52 Megatodo Plástico (botellas, envoltorios, fundas)
## 53 Panaderias Plástico (botellas, envoltorios, fundas)
## 54 Restaurante Plástico (botellas, envoltorios, fundas)
## 55 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 56 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 57 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 58 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 59 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 60 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 61 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 62 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 63 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 64 Carne Papel/cartón (envases tetra pak, cajas)
## 65 Cocos Papel/cartón (envases tetra pak, cajas)
## 66 Comisariato Papel/cartón (envases tetra pak, cajas)
## 67 Helados Papel/cartón (envases tetra pak, cajas)
## 68 Legumbres Papel/cartón (envases tetra pak, cajas)
## 69 Librería Papel/cartón (envases tetra pak, cajas)
## 70 Megatodo Papel/cartón (envases tetra pak, cajas)
## 71 Panaderias Papel/cartón (envases tetra pak, cajas)
## 72 Restaurante Papel/cartón (envases tetra pak, cajas)
## 73 Carne Plástico (botellas, envoltorios, fundas)
## 74 Cocos Plástico (botellas, envoltorios, fundas)
## 75 Comisariato Plástico (botellas, envoltorios, fundas)
## 76 Helados Plástico (botellas, envoltorios, fundas)
## 77 Legumbres Plástico (botellas, envoltorios, fundas)
## 78 Librería Plástico (botellas, envoltorios, fundas)
## 79 Megatodo Plástico (botellas, envoltorios, fundas)
## 80 Panaderias Plástico (botellas, envoltorios, fundas)
## 81 Restaurante Plástico (botellas, envoltorios, fundas)
## Var3 value
## 1 Nunca 0.08196721
## 2 Nunca 0.26229508
## 3 Nunca 0.00000000
## 4 Nunca 0.00000000
## 5 Nunca 0.22950820
## 6 Nunca 0.00000000
## 7 Nunca 0.00000000
## 8 Nunca 0.00000000
## 9 Nunca 0.03278689
## 10 Nunca 0.00000000
## 11 Nunca 0.00000000
## 12 Nunca 0.01639344
## 13 Nunca 0.03278689
## 14 Nunca 0.00000000
## 15 Nunca 0.00000000
## 16 Nunca 0.01639344
## 17 Nunca 0.03278689
## 18 Nunca 0.04918033
## 19 Nunca 0.00000000
## 20 Nunca 0.00000000
## 21 Nunca 0.03278689
## 22 Nunca 0.01639344
## 23 Nunca 0.00000000
## 24 Nunca 0.03278689
## 25 Nunca 0.01639344
## 26 Nunca 0.03278689
## 27 Nunca 0.04918033
## 28 Ocasionalmente 0.00000000
## 29 Ocasionalmente 0.00000000
## 30 Ocasionalmente 0.00000000
## 31 Ocasionalmente 0.00000000
## 32 Ocasionalmente 0.00000000
## 33 Ocasionalmente 0.00000000
## 34 Ocasionalmente 0.00000000
## 35 Ocasionalmente 0.00000000
## 36 Ocasionalmente 0.00000000
## 37 Ocasionalmente 0.00000000
## 38 Ocasionalmente 0.00000000
## 39 Ocasionalmente 0.00000000
## 40 Ocasionalmente 0.00000000
## 41 Ocasionalmente 0.00000000
## 42 Ocasionalmente 0.00000000
## 43 Ocasionalmente 0.00000000
## 44 Ocasionalmente 0.00000000
## 45 Ocasionalmente 0.00000000
## 46 Ocasionalmente 0.00000000
## 47 Ocasionalmente 0.00000000
## 48 Ocasionalmente 0.00000000
## 49 Ocasionalmente 0.00000000
## 50 Ocasionalmente 0.00000000
## 51 Ocasionalmente 0.00000000
## 52 Ocasionalmente 0.01639344
## 53 Ocasionalmente 0.00000000
## 54 Ocasionalmente 0.00000000
## 55 Raramente 0.00000000
## 56 Raramente 0.00000000
## 57 Raramente 0.00000000
## 58 Raramente 0.00000000
## 59 Raramente 0.00000000
## 60 Raramente 0.00000000
## 61 Raramente 0.00000000
## 62 Raramente 0.00000000
## 63 Raramente 0.00000000
## 64 Raramente 0.00000000
## 65 Raramente 0.00000000
## 66 Raramente 0.00000000
## 67 Raramente 0.00000000
## 68 Raramente 0.00000000
## 69 Raramente 0.00000000
## 70 Raramente 0.00000000
## 71 Raramente 0.00000000
## 72 Raramente 0.00000000
## 73 Raramente 0.00000000
## 74 Raramente 0.00000000
## 75 Raramente 0.01639344
## 76 Raramente 0.00000000
## 77 Raramente 0.00000000
## 78 Raramente 0.01639344
## 79 Raramente 0.01639344
## 80 Raramente 0.00000000
## 81 Raramente 0.00000000
# Cambiar los nombres de las columnas para mayor claridad
colnames(tabla_derretida10) <- c("Locales", "Tipo de residuo generado ", "Utiliza tachos de colores", "Porcentaje")
# Multiplicar los porcentajes por 100 para mostrarlos en formato de porcentaje
tabla_derretida10$Porcentaje <- tabla_derretida10$Porcentaje * 100
# Mostrar la tabla con porcentajes
print(tabla_derretida10)
## Locales Tipo de residuo generado
## 1 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 2 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 3 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 4 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 5 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 6 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 7 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 8 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 9 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 10 Carne Papel/cartón (envases tetra pak, cajas)
## 11 Cocos Papel/cartón (envases tetra pak, cajas)
## 12 Comisariato Papel/cartón (envases tetra pak, cajas)
## 13 Helados Papel/cartón (envases tetra pak, cajas)
## 14 Legumbres Papel/cartón (envases tetra pak, cajas)
## 15 Librería Papel/cartón (envases tetra pak, cajas)
## 16 Megatodo Papel/cartón (envases tetra pak, cajas)
## 17 Panaderias Papel/cartón (envases tetra pak, cajas)
## 18 Restaurante Papel/cartón (envases tetra pak, cajas)
## 19 Carne Plástico (botellas, envoltorios, fundas)
## 20 Cocos Plástico (botellas, envoltorios, fundas)
## 21 Comisariato Plástico (botellas, envoltorios, fundas)
## 22 Helados Plástico (botellas, envoltorios, fundas)
## 23 Legumbres Plástico (botellas, envoltorios, fundas)
## 24 Librería Plástico (botellas, envoltorios, fundas)
## 25 Megatodo Plástico (botellas, envoltorios, fundas)
## 26 Panaderias Plástico (botellas, envoltorios, fundas)
## 27 Restaurante Plástico (botellas, envoltorios, fundas)
## 28 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 29 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 30 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 31 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 32 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 33 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 34 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 35 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 36 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 37 Carne Papel/cartón (envases tetra pak, cajas)
## 38 Cocos Papel/cartón (envases tetra pak, cajas)
## 39 Comisariato Papel/cartón (envases tetra pak, cajas)
## 40 Helados Papel/cartón (envases tetra pak, cajas)
## 41 Legumbres Papel/cartón (envases tetra pak, cajas)
## 42 Librería Papel/cartón (envases tetra pak, cajas)
## 43 Megatodo Papel/cartón (envases tetra pak, cajas)
## 44 Panaderias Papel/cartón (envases tetra pak, cajas)
## 45 Restaurante Papel/cartón (envases tetra pak, cajas)
## 46 Carne Plástico (botellas, envoltorios, fundas)
## 47 Cocos Plástico (botellas, envoltorios, fundas)
## 48 Comisariato Plástico (botellas, envoltorios, fundas)
## 49 Helados Plástico (botellas, envoltorios, fundas)
## 50 Legumbres Plástico (botellas, envoltorios, fundas)
## 51 Librería Plástico (botellas, envoltorios, fundas)
## 52 Megatodo Plástico (botellas, envoltorios, fundas)
## 53 Panaderias Plástico (botellas, envoltorios, fundas)
## 54 Restaurante Plástico (botellas, envoltorios, fundas)
## 55 Carne Materia orgánica (restos de alimentos, desechos biodegradables)
## 56 Cocos Materia orgánica (restos de alimentos, desechos biodegradables)
## 57 Comisariato Materia orgánica (restos de alimentos, desechos biodegradables)
## 58 Helados Materia orgánica (restos de alimentos, desechos biodegradables)
## 59 Legumbres Materia orgánica (restos de alimentos, desechos biodegradables)
## 60 Librería Materia orgánica (restos de alimentos, desechos biodegradables)
## 61 Megatodo Materia orgánica (restos de alimentos, desechos biodegradables)
## 62 Panaderias Materia orgánica (restos de alimentos, desechos biodegradables)
## 63 Restaurante Materia orgánica (restos de alimentos, desechos biodegradables)
## 64 Carne Papel/cartón (envases tetra pak, cajas)
## 65 Cocos Papel/cartón (envases tetra pak, cajas)
## 66 Comisariato Papel/cartón (envases tetra pak, cajas)
## 67 Helados Papel/cartón (envases tetra pak, cajas)
## 68 Legumbres Papel/cartón (envases tetra pak, cajas)
## 69 Librería Papel/cartón (envases tetra pak, cajas)
## 70 Megatodo Papel/cartón (envases tetra pak, cajas)
## 71 Panaderias Papel/cartón (envases tetra pak, cajas)
## 72 Restaurante Papel/cartón (envases tetra pak, cajas)
## 73 Carne Plástico (botellas, envoltorios, fundas)
## 74 Cocos Plástico (botellas, envoltorios, fundas)
## 75 Comisariato Plástico (botellas, envoltorios, fundas)
## 76 Helados Plástico (botellas, envoltorios, fundas)
## 77 Legumbres Plástico (botellas, envoltorios, fundas)
## 78 Librería Plástico (botellas, envoltorios, fundas)
## 79 Megatodo Plástico (botellas, envoltorios, fundas)
## 80 Panaderias Plástico (botellas, envoltorios, fundas)
## 81 Restaurante Plástico (botellas, envoltorios, fundas)
## Utiliza tachos de colores Porcentaje
## 1 Nunca 8.196721
## 2 Nunca 26.229508
## 3 Nunca 0.000000
## 4 Nunca 0.000000
## 5 Nunca 22.950820
## 6 Nunca 0.000000
## 7 Nunca 0.000000
## 8 Nunca 0.000000
## 9 Nunca 3.278689
## 10 Nunca 0.000000
## 11 Nunca 0.000000
## 12 Nunca 1.639344
## 13 Nunca 3.278689
## 14 Nunca 0.000000
## 15 Nunca 0.000000
## 16 Nunca 1.639344
## 17 Nunca 3.278689
## 18 Nunca 4.918033
## 19 Nunca 0.000000
## 20 Nunca 0.000000
## 21 Nunca 3.278689
## 22 Nunca 1.639344
## 23 Nunca 0.000000
## 24 Nunca 3.278689
## 25 Nunca 1.639344
## 26 Nunca 3.278689
## 27 Nunca 4.918033
## 28 Ocasionalmente 0.000000
## 29 Ocasionalmente 0.000000
## 30 Ocasionalmente 0.000000
## 31 Ocasionalmente 0.000000
## 32 Ocasionalmente 0.000000
## 33 Ocasionalmente 0.000000
## 34 Ocasionalmente 0.000000
## 35 Ocasionalmente 0.000000
## 36 Ocasionalmente 0.000000
## 37 Ocasionalmente 0.000000
## 38 Ocasionalmente 0.000000
## 39 Ocasionalmente 0.000000
## 40 Ocasionalmente 0.000000
## 41 Ocasionalmente 0.000000
## 42 Ocasionalmente 0.000000
## 43 Ocasionalmente 0.000000
## 44 Ocasionalmente 0.000000
## 45 Ocasionalmente 0.000000
## 46 Ocasionalmente 0.000000
## 47 Ocasionalmente 0.000000
## 48 Ocasionalmente 0.000000
## 49 Ocasionalmente 0.000000
## 50 Ocasionalmente 0.000000
## 51 Ocasionalmente 0.000000
## 52 Ocasionalmente 1.639344
## 53 Ocasionalmente 0.000000
## 54 Ocasionalmente 0.000000
## 55 Raramente 0.000000
## 56 Raramente 0.000000
## 57 Raramente 0.000000
## 58 Raramente 0.000000
## 59 Raramente 0.000000
## 60 Raramente 0.000000
## 61 Raramente 0.000000
## 62 Raramente 0.000000
## 63 Raramente 0.000000
## 64 Raramente 0.000000
## 65 Raramente 0.000000
## 66 Raramente 0.000000
## 67 Raramente 0.000000
## 68 Raramente 0.000000
## 69 Raramente 0.000000
## 70 Raramente 0.000000
## 71 Raramente 0.000000
## 72 Raramente 0.000000
## 73 Raramente 0.000000
## 74 Raramente 0.000000
## 75 Raramente 1.639344
## 76 Raramente 0.000000
## 77 Raramente 0.000000
## 78 Raramente 1.639344
## 79 Raramente 1.639344
## 80 Raramente 0.000000
## 81 Raramente 0.000000
ggplot(tabla_derretida10) +
aes(
x = Porcentaje,
y = Locales,
fill = `Tipo de residuo generado `
) +
geom_bar(stat = "summary", fun = "sum", position = "fill") +
scale_fill_hue(direction = 1) +
theme_minimal() +
facet_wrap(vars(`Utiliza tachos de colores`))
## Warning: Removed 42 rows containing missing values or values outside the scale range
## (`geom_bar()`).
#Grafico de Pregunta 2 11
tabla_cruzada211 <- table(dataeliana1$Tiempo, dataeliana1$P11, dataeliana1$P20)
tabla_porcentajes11 <- prop.table(tabla_cruzada211)
# Para visualizar la tabla cruzada
print(tabla_porcentajes11)
## , , = Nunca
##
##
## Botadero ilegal Reciclaje
## 1-5 años 0.00000000 0.01639344
## 11-15 años 0.01639344 0.00000000
## 6-10 años 0.00000000 0.01639344
## Más de 15 años 0.00000000 0.00000000
##
## Relleno sanitario (entrega al recolector)
## 1-5 años 0.13114754
## 11-15 años 0.09836066
## 6-10 años 0.18032787
## Más de 15 años 0.11475410
##
## , , = Nuncs
##
##
## Botadero ilegal Reciclaje
## 1-5 años 0.00000000 0.00000000
## 11-15 años 0.00000000 0.00000000
## 6-10 años 0.00000000 0.00000000
## Más de 15 años 0.00000000 0.00000000
##
## Relleno sanitario (entrega al recolector)
## 1-5 años 0.00000000
## 11-15 años 0.01639344
## 6-10 años 0.00000000
## Más de 15 años 0.00000000
##
## , , = Raramente
##
##
## Botadero ilegal Reciclaje
## 1-5 años 0.04918033 0.00000000
## 11-15 años 0.00000000 0.00000000
## 6-10 años 0.01639344 0.00000000
## Más de 15 años 0.00000000 0.00000000
##
## Relleno sanitario (entrega al recolector)
## 1-5 años 0.13114754
## 11-15 años 0.06557377
## 6-10 años 0.08196721
## Más de 15 años 0.06557377
# Derretir la tabla cruzada a un formato largo
tabla_derretida11 <- melt(tabla_porcentajes11)
tabla_derretida11
## Var1 Var2 Var3
## 1 1-5 años Botadero ilegal Nunca
## 2 11-15 años Botadero ilegal Nunca
## 3 6-10 años Botadero ilegal Nunca
## 4 Más de 15 años Botadero ilegal Nunca
## 5 1-5 años Reciclaje Nunca
## 6 11-15 años Reciclaje Nunca
## 7 6-10 años Reciclaje Nunca
## 8 Más de 15 años Reciclaje Nunca
## 9 1-5 años Relleno sanitario (entrega al recolector) Nunca
## 10 11-15 años Relleno sanitario (entrega al recolector) Nunca
## 11 6-10 años Relleno sanitario (entrega al recolector) Nunca
## 12 Más de 15 años Relleno sanitario (entrega al recolector) Nunca
## 13 1-5 años Botadero ilegal Nuncs
## 14 11-15 años Botadero ilegal Nuncs
## 15 6-10 años Botadero ilegal Nuncs
## 16 Más de 15 años Botadero ilegal Nuncs
## 17 1-5 años Reciclaje Nuncs
## 18 11-15 años Reciclaje Nuncs
## 19 6-10 años Reciclaje Nuncs
## 20 Más de 15 años Reciclaje Nuncs
## 21 1-5 años Relleno sanitario (entrega al recolector) Nuncs
## 22 11-15 años Relleno sanitario (entrega al recolector) Nuncs
## 23 6-10 años Relleno sanitario (entrega al recolector) Nuncs
## 24 Más de 15 años Relleno sanitario (entrega al recolector) Nuncs
## 25 1-5 años Botadero ilegal Raramente
## 26 11-15 años Botadero ilegal Raramente
## 27 6-10 años Botadero ilegal Raramente
## 28 Más de 15 años Botadero ilegal Raramente
## 29 1-5 años Reciclaje Raramente
## 30 11-15 años Reciclaje Raramente
## 31 6-10 años Reciclaje Raramente
## 32 Más de 15 años Reciclaje Raramente
## 33 1-5 años Relleno sanitario (entrega al recolector) Raramente
## 34 11-15 años Relleno sanitario (entrega al recolector) Raramente
## 35 6-10 años Relleno sanitario (entrega al recolector) Raramente
## 36 Más de 15 años Relleno sanitario (entrega al recolector) Raramente
## value
## 1 0.00000000
## 2 0.01639344
## 3 0.00000000
## 4 0.00000000
## 5 0.01639344
## 6 0.00000000
## 7 0.01639344
## 8 0.00000000
## 9 0.13114754
## 10 0.09836066
## 11 0.18032787
## 12 0.11475410
## 13 0.00000000
## 14 0.00000000
## 15 0.00000000
## 16 0.00000000
## 17 0.00000000
## 18 0.00000000
## 19 0.00000000
## 20 0.00000000
## 21 0.00000000
## 22 0.01639344
## 23 0.00000000
## 24 0.00000000
## 25 0.04918033
## 26 0.00000000
## 27 0.01639344
## 28 0.00000000
## 29 0.00000000
## 30 0.00000000
## 31 0.00000000
## 32 0.00000000
## 33 0.13114754
## 34 0.06557377
## 35 0.08196721
## 36 0.06557377
print(tabla_derretida11)
## Var1 Var2 Var3
## 1 1-5 años Botadero ilegal Nunca
## 2 11-15 años Botadero ilegal Nunca
## 3 6-10 años Botadero ilegal Nunca
## 4 Más de 15 años Botadero ilegal Nunca
## 5 1-5 años Reciclaje Nunca
## 6 11-15 años Reciclaje Nunca
## 7 6-10 años Reciclaje Nunca
## 8 Más de 15 años Reciclaje Nunca
## 9 1-5 años Relleno sanitario (entrega al recolector) Nunca
## 10 11-15 años Relleno sanitario (entrega al recolector) Nunca
## 11 6-10 años Relleno sanitario (entrega al recolector) Nunca
## 12 Más de 15 años Relleno sanitario (entrega al recolector) Nunca
## 13 1-5 años Botadero ilegal Nuncs
## 14 11-15 años Botadero ilegal Nuncs
## 15 6-10 años Botadero ilegal Nuncs
## 16 Más de 15 años Botadero ilegal Nuncs
## 17 1-5 años Reciclaje Nuncs
## 18 11-15 años Reciclaje Nuncs
## 19 6-10 años Reciclaje Nuncs
## 20 Más de 15 años Reciclaje Nuncs
## 21 1-5 años Relleno sanitario (entrega al recolector) Nuncs
## 22 11-15 años Relleno sanitario (entrega al recolector) Nuncs
## 23 6-10 años Relleno sanitario (entrega al recolector) Nuncs
## 24 Más de 15 años Relleno sanitario (entrega al recolector) Nuncs
## 25 1-5 años Botadero ilegal Raramente
## 26 11-15 años Botadero ilegal Raramente
## 27 6-10 años Botadero ilegal Raramente
## 28 Más de 15 años Botadero ilegal Raramente
## 29 1-5 años Reciclaje Raramente
## 30 11-15 años Reciclaje Raramente
## 31 6-10 años Reciclaje Raramente
## 32 Más de 15 años Reciclaje Raramente
## 33 1-5 años Relleno sanitario (entrega al recolector) Raramente
## 34 11-15 años Relleno sanitario (entrega al recolector) Raramente
## 35 6-10 años Relleno sanitario (entrega al recolector) Raramente
## 36 Más de 15 años Relleno sanitario (entrega al recolector) Raramente
## value
## 1 0.00000000
## 2 0.01639344
## 3 0.00000000
## 4 0.00000000
## 5 0.01639344
## 6 0.00000000
## 7 0.01639344
## 8 0.00000000
## 9 0.13114754
## 10 0.09836066
## 11 0.18032787
## 12 0.11475410
## 13 0.00000000
## 14 0.00000000
## 15 0.00000000
## 16 0.00000000
## 17 0.00000000
## 18 0.00000000
## 19 0.00000000
## 20 0.00000000
## 21 0.00000000
## 22 0.01639344
## 23 0.00000000
## 24 0.00000000
## 25 0.04918033
## 26 0.00000000
## 27 0.01639344
## 28 0.00000000
## 29 0.00000000
## 30 0.00000000
## 31 0.00000000
## 32 0.00000000
## 33 0.13114754
## 34 0.06557377
## 35 0.08196721
## 36 0.06557377
# Cambiar los nombres de las columnas para mayor claridad
colnames(tabla_derretida11) <- c("Tiempo de Funcionamiento", "Destino de residuos", "Reunión Comerciantes y Autoridades", "Porcentaje")
tabla_derretida11
## Tiempo de Funcionamiento Destino de residuos
## 1 1-5 años Botadero ilegal
## 2 11-15 años Botadero ilegal
## 3 6-10 años Botadero ilegal
## 4 Más de 15 años Botadero ilegal
## 5 1-5 años Reciclaje
## 6 11-15 años Reciclaje
## 7 6-10 años Reciclaje
## 8 Más de 15 años Reciclaje
## 9 1-5 años Relleno sanitario (entrega al recolector)
## 10 11-15 años Relleno sanitario (entrega al recolector)
## 11 6-10 años Relleno sanitario (entrega al recolector)
## 12 Más de 15 años Relleno sanitario (entrega al recolector)
## 13 1-5 años Botadero ilegal
## 14 11-15 años Botadero ilegal
## 15 6-10 años Botadero ilegal
## 16 Más de 15 años Botadero ilegal
## 17 1-5 años Reciclaje
## 18 11-15 años Reciclaje
## 19 6-10 años Reciclaje
## 20 Más de 15 años Reciclaje
## 21 1-5 años Relleno sanitario (entrega al recolector)
## 22 11-15 años Relleno sanitario (entrega al recolector)
## 23 6-10 años Relleno sanitario (entrega al recolector)
## 24 Más de 15 años Relleno sanitario (entrega al recolector)
## 25 1-5 años Botadero ilegal
## 26 11-15 años Botadero ilegal
## 27 6-10 años Botadero ilegal
## 28 Más de 15 años Botadero ilegal
## 29 1-5 años Reciclaje
## 30 11-15 años Reciclaje
## 31 6-10 años Reciclaje
## 32 Más de 15 años Reciclaje
## 33 1-5 años Relleno sanitario (entrega al recolector)
## 34 11-15 años Relleno sanitario (entrega al recolector)
## 35 6-10 años Relleno sanitario (entrega al recolector)
## 36 Más de 15 años Relleno sanitario (entrega al recolector)
## Reunión Comerciantes y Autoridades Porcentaje
## 1 Nunca 0.00000000
## 2 Nunca 0.01639344
## 3 Nunca 0.00000000
## 4 Nunca 0.00000000
## 5 Nunca 0.01639344
## 6 Nunca 0.00000000
## 7 Nunca 0.01639344
## 8 Nunca 0.00000000
## 9 Nunca 0.13114754
## 10 Nunca 0.09836066
## 11 Nunca 0.18032787
## 12 Nunca 0.11475410
## 13 Nuncs 0.00000000
## 14 Nuncs 0.00000000
## 15 Nuncs 0.00000000
## 16 Nuncs 0.00000000
## 17 Nuncs 0.00000000
## 18 Nuncs 0.00000000
## 19 Nuncs 0.00000000
## 20 Nuncs 0.00000000
## 21 Nuncs 0.00000000
## 22 Nuncs 0.01639344
## 23 Nuncs 0.00000000
## 24 Nuncs 0.00000000
## 25 Raramente 0.04918033
## 26 Raramente 0.00000000
## 27 Raramente 0.01639344
## 28 Raramente 0.00000000
## 29 Raramente 0.00000000
## 30 Raramente 0.00000000
## 31 Raramente 0.00000000
## 32 Raramente 0.00000000
## 33 Raramente 0.13114754
## 34 Raramente 0.06557377
## 35 Raramente 0.08196721
## 36 Raramente 0.06557377
# Multiplicar los porcentajes por 100 para mostrarlos en formato de porcentaje
tabla_derretida11$Porcentaje <- tabla_derretida11$Porcentaje * 100
ggplot(tabla_derretida11) +
aes(
x = Porcentaje,
y = `Destino de residuos`,
fill = `Tiempo de Funcionamiento`
) +
geom_bar(stat = "summary", fun = "sum", position = "fill") +
scale_fill_hue(direction = 1) +
labs(title = "Reunión Comerciante y Autoridades") +
theme_minimal() +
facet_wrap(vars(`Reunión Comerciantes y Autoridades`))
## Warning: Removed 12 rows containing missing values or values outside the scale range
## (`geom_bar()`).
#esquisser(tabla_derretida11)