GRAFOS LIMPIEZA DE DATOS
Ferrer Jhenlys
1 de marzo de 2018
load("~/vii semestre/PLANIFICACION I/recetario/base de datos grafos 01 marzo.RData")Cuantos casos, cuantas variables
dim(recetariobd)## [1] 464 2Nombre de las variables
names(recetariobd)## [1] "Platillos" "Ingredientes"Categorias de la variable Platillos
data.frame(table(recetariobd$Platillos))## Var1 Freq
## 1 Aguadito de Pollo 13
## 2 Arepa E` Huevo 6
## 3 Arepas Asadas 4
## 4 Arepas de Ajonjoli 5
## 5 Arepas de Cambur 5
## 6 Arepas de Chicharron 5
## 7 Arepas de Cucuba 4
## 8 Arepas de Harina de Trigo 6
## 9 Arepas de Maiz Pelado 3
## 10 Arepas de Millo y Suero 5
## 11 Arepas de Polvo 9
## 12 Arepas de Queso 5
## 13 Arepas de Yuca 7
## 14 Arepas Jojotas 1
## 15 Arepas Raspadas 3
## 16 Arepas Rellenas Rebosadas 16
## 17 Arepas Saldas (Fritas) 5
## 18 Arepitas de Cambur Verde 5
## 19 Arepitas de Queso Crema 5
## 20 Arepitas Dulces Fritas 4
## 21 Arepitas Fritas de Papelon y Anis 8
## 22 Arroz Aguado o Asopado 9
## 23 Arroz Blanco 7
## 24 Arroz con Chipichipis 10
## 25 Arroz con Pollo 12
## 26 Arroz de Rabo a la Llanera 7
## 27 Arroz Granjero 12
## 28 Asado Negro 11
## 29 Bollos Pelones 13
## 30 Cachapas de Budare 5
## 31 Cachapas de Hoja 4
## 32 Caraotas Blancas Pisadas 7
## 33 Carite en Escabeche 9
## 34 Carne Frita 6
## 35 Carne Mechada Guisada 10
## 36 Cazon Guisado con Papas 9
## 37 Celse Coriano 9
## 38 Ceviche 9
## 39 Chivo en Coco 16
## 40 Chuletas de Carne a la Venezolana 10
## 41 Cochino Frito 6
## 42 Consome de Chipichipis 6
## 43 Crema de Arvejas Partidas 10
## 44 Cuajao de Chucho Salado 9
## 45 Cuajao Oriental 11
## 46 Explosion Marina 12
## 47 Lomo de Cochino al Ron 8
## 48 Lomo de Cochino Tachirense 14
## 49 Pabellon Criollo 4
## 50 Parrilla a la Criolla 10
## 51 Pastel de Polvorosa (Pollo) 16
## 52 Perico Criollo 7
## 53 Picadillo o Picote 11
## 54 Platano Frito en Tajadas 2
## 55 Polenta Criolla 14
## 56 Queso de Bola Relleno Estilo Oriental 13
## 57 Sardinas Empanadas 6
## 58 Tostada Caraquena 6__ Categorias de la variable Ingredientes __
data.frame(table(recetariobd$Ingredientes))## Var1 Freq
## 1 Aceite 28
## 2 Aceite de Oliva 1
## 3 Aceite onotado 4
## 4 Aceitunas 3
## 5 Adobo 1
## 6 Agua 21
## 7 Aji 17
## 8 Ajo 23
## 9 Ajo en polvo 3
## 10 Ajoporro 4
## 11 Alcaparras 4
## 12 Anis en semilla 1
## 13 Arroz 9
## 14 Arvejas verdes partidas secas 1
## 15 Atun 1
## 16 Auyama 1
## 17 Azucar 10
## 18 Bicarbonato 2
## 19 Bizcocho 1
## 20 Cabeza de cochino 1
## 21 Cal 1
## 22 Caldo claro 1
## 23 Caldo de pollo 1
## 24 Cambur maduro triturado 1
## 25 Cambur verde rallado 1
## 26 Caraotas blancas 1
## 27 Caraotas negras 1
## 28 Carite en ruedas 1
## 29 Carne de cochino 6
## 30 Carne de res 11
## 31 Carne seca 1
## 32 Cazon 1
## 33 Cebolla 27
## 34 Cebollin 7
## 35 Celery 1
## 36 Cenizas 1
## 37 Chicharron en trozos 1
## 38 Chipichipis 3
## 39 Chivo en pedazos 1
## 40 Cilantro 5
## 41 Clavitos de olor molidos 1
## 42 Coco 1
## 43 Color amarillo 1
## 44 Comino 3
## 45 Condimento 1
## 46 Conejo 1
## 47 Crema de leche 1
## 48 Culantron 1
## 49 Curry en polvo 1
## 50 Encurtidos 1
## 51 Esencia de vainilla 1
## 52 Guacuco 1
## 53 Harina de maiz precocida 17
## 54 Harina de platano 1
## 55 Harina de trigo 5
## 56 Hierbabuena 2
## 57 Hojas de Laurel 4
## 58 Huevo 16
## 59 Lagarto la reina molido 1
## 60 Leche 5
## 61 Lengua 1
## 62 Limon 7
## 63 Lonja 1
## 64 Maicena 1
## 65 Maiz 7
## 66 Manteca 4
## 67 Mantequilla 9
## 68 Moluscos sin concha 1
## 69 Oregano 1
## 70 Ostra 1
## 71 Pan rallado 1
## 72 Papa 2
## 73 Papelon 5
## 74 Pasas 3
## 75 Pasta de tomate 1
## 76 Paticas de cochino 1
## 77 pepino 1
## 78 Perejil 5
## 79 Pesacado chucho salado 1
## 80 Petit pois 1
## 81 Pimenton 17
## 82 Pimienta 16
## 83 Platano maduro 2
## 84 Platano verde 1
## 85 Pollo 3
## 86 Queso 6
## 87 Queso 3
## 88 Repollo 1
## 89 Ron 1
## 90 Sal 44
## 91 Salsa Inglesa 4
## 92 Salsa Soya 2
## 93 Sardinas frescas 1
## 94 Semillas de ajonjoli tostado y molido 1
## 95 Semillas molidas de millo 1
## 96 Suero 1
## 97 Tomate 16
## 98 Tomillo 1
## 99 Topocho verde 1
## 100 Vinagre 3
## 101 Vino de cocina 5
## 102 Yuca 2
## 103 Zanahoria 4Limpieza de las Categorias
recetariobd$Ingredientes <- gsub("^Aji picante" , "Aji", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Aji dulce" , "Aji", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Ajo porro" , "Ajoporro", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Caldo Claro" , "Caldo de pollo", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne Molida" , "Carne molida", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne de falda" , "Carne Mechada", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Cebolla larga" , "Cebollin", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Chipichipis en concha" , "Chipichipis", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Cilantro de monte" , "Cilantro", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Granos de maiz" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Huevo sancochado" , "Huevos", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Huevos batidos" , "Huevos", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Maiz tierno" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Maiz en concha" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Maiz cariaco" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Maiz tiernos en su hoja" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Granos de maiz" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Jojoto" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Jojotos tiernos en su hoja" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Leche liquida" , "Leche", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Leche tibia" , "Leche", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Manteca de cochino" , "Manteca", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Melao de papelon" , "Papelon", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Miel de papelon" , "Papelon", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Miel de panela" , "Papelon", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Papelon en trozos" , "Papelon", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Papelon molido" , "Papelon", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Pimienta blanca" , "Pimienta", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Pimienta molida" , "Pimienta", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Pimienta en grano" , "Pimienta", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Pimienta negra" , "Pimienta", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso palmita rallado" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Tomate licuado" , "Tomate", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Tomate pelado" , "Tomate", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Vino blanco" , "Vino de cocina", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Vinagre de vino" , "Vino de cocina", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Yemas de huevo" , "Huevos", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Yuca en pure" , "Yuca", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Platano Maduro" , "Platano", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Platano Verde" , "Platano", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne$" , "Carne de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne de falda$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne Mechada$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne molida$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne Molida$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carne para mechar$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Chuleta de res$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Muchacho redondo$" , "Carde de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Cochino en trocitos$" , "Carde de cochino", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Lomo de cochino en rodajas$" , "Carne de cochino", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Lomo de cochino$" , "Carde de cochino", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Toque de cochino$" , "Carde de cochino", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Harina leudante$" , "Harina de trigo", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Harina todo uso$" , "Harina de trigo", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Arepas$" , "Harina de maiz precocida", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carde de cohino$" , "Carne de cochino", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carde de res$" , "Carne de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Chuletas de res$" , "Carne de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Huevos$" , "Huevo", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Maizs tiernos en su hoja$" , "Maiz", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Masa de arepa$" , "Harina de maiz precocida", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Punta trasera$" , "Carne de res", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso duro rallado" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco rallado" , "Queso ", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco duro rallado" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco en trocitos" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso de bola" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso duro rallado" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco rallado" , "Queso ", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco duro rallado" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Queso blanco en trocitos" , "Queso", recetariobd$Ingredientes)
recetariobd$Ingredientes <- gsub("^Carde de cochino" , "Carne de cochino", recetariobd$Ingredientes)Reviso
data.frame(table(recetariobd$Ingredientes))## Var1 Freq
## 1 Aceite 28
## 2 Aceite de Oliva 1
## 3 Aceite onotado 4
## 4 Aceitunas 3
## 5 Adobo 1
## 6 Agua 21
## 7 Aji 17
## 8 Ajo 23
## 9 Ajo en polvo 3
## 10 Ajoporro 4
## 11 Alcaparras 4
## 12 Anis en semilla 1
## 13 Arroz 9
## 14 Arvejas verdes partidas secas 1
## 15 Atun 1
## 16 Auyama 1
## 17 Azucar 10
## 18 Bicarbonato 2
## 19 Bizcocho 1
## 20 Cabeza de cochino 1
## 21 Cal 1
## 22 Caldo claro 1
## 23 Caldo de pollo 1
## 24 Cambur maduro triturado 1
## 25 Cambur verde rallado 1
## 26 Caraotas blancas 1
## 27 Caraotas negras 1
## 28 Carite en ruedas 1
## 29 Carne de cochino 6
## 30 Carne de res 11
## 31 Carne seca 1
## 32 Cazon 1
## 33 Cebolla 27
## 34 Cebollin 7
## 35 Celery 1
## 36 Cenizas 1
## 37 Chicharron en trozos 1
## 38 Chipichipis 3
## 39 Chivo en pedazos 1
## 40 Cilantro 5
## 41 Clavitos de olor molidos 1
## 42 Coco 1
## 43 Color amarillo 1
## 44 Comino 3
## 45 Condimento 1
## 46 Conejo 1
## 47 Crema de leche 1
## 48 Culantron 1
## 49 Curry en polvo 1
## 50 Encurtidos 1
## 51 Esencia de vainilla 1
## 52 Guacuco 1
## 53 Harina de maiz precocida 17
## 54 Harina de platano 1
## 55 Harina de trigo 5
## 56 Hierbabuena 2
## 57 Hojas de Laurel 4
## 58 Huevo 16
## 59 Lagarto la reina molido 1
## 60 Leche 5
## 61 Lengua 1
## 62 Limon 7
## 63 Lonja 1
## 64 Maicena 1
## 65 Maiz 7
## 66 Manteca 4
## 67 Mantequilla 9
## 68 Moluscos sin concha 1
## 69 Oregano 1
## 70 Ostra 1
## 71 Pan rallado 1
## 72 Papa 2
## 73 Papelon 5
## 74 Pasas 3
## 75 Pasta de tomate 1
## 76 Paticas de cochino 1
## 77 pepino 1
## 78 Perejil 5
## 79 Pesacado chucho salado 1
## 80 Petit pois 1
## 81 Pimenton 17
## 82 Pimienta 16
## 83 Platano maduro 2
## 84 Platano verde 1
## 85 Pollo 3
## 86 Queso 6
## 87 Queso 3
## 88 Repollo 1
## 89 Ron 1
## 90 Sal 44
## 91 Salsa Inglesa 4
## 92 Salsa Soya 2
## 93 Sardinas frescas 1
## 94 Semillas de ajonjoli tostado y molido 1
## 95 Semillas molidas de millo 1
## 96 Suero 1
## 97 Tomate 16
## 98 Tomillo 1
## 99 Topocho verde 1
## 100 Vinagre 3
## 101 Vino de cocina 5
## 102 Yuca 2
## 103 Zanahoria 4Creo una matriz de incidencia
matriz <- table(recetariobd$Platillos, recetariobd$Ingredientes)Impecciono mi matriz
head.matrix(matriz)##
## Aceite Aceite de Oliva Aceite onotado Aceitunas
## Aguadito de Pollo 1 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 1 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 1 0 0 0
##
## Adobo Agua Aji Ajo Ajo en polvo Ajoporro Alcaparras
## Aguadito de Pollo 1 1 1 1 0 0 0
## Arepa E` Huevo 0 1 0 0 0 0 0
## Arepas Asadas 0 1 0 0 0 0 0
## Arepas de Ajonjoli 0 0 1 1 0 0 0
## Arepas de Cambur 0 1 0 0 0 0 0
## Arepas de Chicharron 0 1 0 0 0 0 0
##
## Anis en semilla Arroz Arvejas verdes partidas secas
## Aguadito de Pollo 0 1 0
## Arepa E` Huevo 0 0 0
## Arepas Asadas 0 0 0
## Arepas de Ajonjoli 0 0 0
## Arepas de Cambur 0 0 0
## Arepas de Chicharron 0 0 0
##
## Atun Auyama Azucar Bicarbonato Bizcocho
## Aguadito de Pollo 0 0 0 0 0
## Arepa E` Huevo 0 0 1 0 0
## Arepas Asadas 0 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0 0
## Arepas de Cambur 0 0 0 0 0
## Arepas de Chicharron 0 0 0 0 0
##
## Cabeza de cochino Cal Caldo claro Caldo de pollo
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Cambur maduro triturado Cambur verde rallado
## Aguadito de Pollo 0 0
## Arepa E` Huevo 0 0
## Arepas Asadas 0 0
## Arepas de Ajonjoli 0 0
## Arepas de Cambur 1 0
## Arepas de Chicharron 0 0
##
## Caraotas blancas Caraotas negras Carite en ruedas
## Aguadito de Pollo 0 0 0
## Arepa E` Huevo 0 0 0
## Arepas Asadas 0 0 0
## Arepas de Ajonjoli 0 0 0
## Arepas de Cambur 0 0 0
## Arepas de Chicharron 0 0 0
##
## Carne de cochino Carne de res Carne seca Cazon
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 1 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Cebolla Cebollin Celery Cenizas
## Aguadito de Pollo 1 1 1 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Chicharron en trozos Chipichipis Chivo en pedazos
## Aguadito de Pollo 0 0 0
## Arepa E` Huevo 0 0 0
## Arepas Asadas 0 0 0
## Arepas de Ajonjoli 0 0 0
## Arepas de Cambur 0 0 0
## Arepas de Chicharron 1 0 0
##
## Cilantro Clavitos de olor molidos Coco
## Aguadito de Pollo 1 0 0
## Arepa E` Huevo 0 0 0
## Arepas Asadas 0 0 0
## Arepas de Ajonjoli 0 0 0
## Arepas de Cambur 0 0 0
## Arepas de Chicharron 0 0 0
##
## Color amarillo Comino Condimento Conejo
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Crema de leche Culantron Curry en polvo Encurtidos
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Esencia de vainilla Guacuco
## Aguadito de Pollo 0 0
## Arepa E` Huevo 0 0
## Arepas Asadas 0 0
## Arepas de Ajonjoli 0 0
## Arepas de Cambur 0 0
## Arepas de Chicharron 0 0
##
## Harina de maiz precocida Harina de platano
## Aguadito de Pollo 0 0
## Arepa E` Huevo 1 0
## Arepas Asadas 1 0
## Arepas de Ajonjoli 1 0
## Arepas de Cambur 1 0
## Arepas de Chicharron 1 0
##
## Harina de trigo Hierbabuena Hojas de Laurel Huevo
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 1
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Lagarto la reina molido Leche Lengua Limon Lonja
## Aguadito de Pollo 0 0 0 0 0
## Arepa E` Huevo 0 0 0 0 0
## Arepas Asadas 0 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0 0
## Arepas de Cambur 0 0 0 0 0
## Arepas de Chicharron 0 0 0 0 0
##
## Maicena Maiz Manteca Mantequilla
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Moluscos sin concha Oregano Ostra Pan rallado Papa
## Aguadito de Pollo 0 0 0 0 0
## Arepa E` Huevo 0 0 0 0 0
## Arepas Asadas 0 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0 0
## Arepas de Cambur 0 0 0 0 0
## Arepas de Chicharron 0 0 0 0 0
##
## Papelon Pasas Pasta de tomate Paticas de cochino
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 1 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## pepino Perejil Pesacado chucho salado Petit pois
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Pimenton Pimienta Platano maduro Platano verde
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Pollo Queso Queso Repollo Ron Sal Salsa Inglesa
## Aguadito de Pollo 1 0 0 0 0 1 1
## Arepa E` Huevo 0 0 0 0 0 1 0
## Arepas Asadas 0 0 0 0 0 1 0
## Arepas de Ajonjoli 0 0 0 0 0 1 0
## Arepas de Cambur 0 0 0 0 0 1 0
## Arepas de Chicharron 0 0 0 0 0 1 0
##
## Salsa Soya Sardinas frescas
## Aguadito de Pollo 0 0
## Arepa E` Huevo 0 0
## Arepas Asadas 0 0
## Arepas de Ajonjoli 0 0
## Arepas de Cambur 0 0
## Arepas de Chicharron 0 0
##
## Semillas de ajonjoli tostado y molido
## Aguadito de Pollo 0
## Arepa E` Huevo 0
## Arepas Asadas 0
## Arepas de Ajonjoli 1
## Arepas de Cambur 0
## Arepas de Chicharron 0
##
## Semillas molidas de millo Suero Tomate Tomillo
## Aguadito de Pollo 0 0 0 0
## Arepa E` Huevo 0 0 0 0
## Arepas Asadas 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0
## Arepas de Cambur 0 0 0 0
## Arepas de Chicharron 0 0 0 0
##
## Topocho verde Vinagre Vino de cocina Yuca Zanahoria
## Aguadito de Pollo 0 0 0 0 0
## Arepa E` Huevo 0 0 0 0 0
## Arepas Asadas 0 0 0 0 0
## Arepas de Ajonjoli 0 0 0 0 0
## Arepas de Cambur 0 0 0 0 0
## Arepas de Chicharron 0 0 0 0 0__ Subo el paquete igraph__
library(igraph)##
## Attaching package: 'igraph'## The following objects are masked from 'package:stats':
##
## decompose, spectrum## The following object is masked from 'package:base':
##
## unionCreo el grafo
g<-graph_from_incidence_matrix(matriz,mode=c("in"), weighted = TRUE,
directed = TRUE)Grafico
g<-simplify(g)
plot(g)
Grado
grado <-sort(degree(g), decreasing = TRUE)
grado <- grado[grado >= 5]
head(grado,10)## Sal Aceite
## 44 28
## Cebolla Ajo
## 27 23
## Agua Harina de maiz precocida
## 21 17
## Pimenton Arepas Rellenas Rebosadas
## 17 16
## Chivo en Coco Aji
## 16 16Ejercicio
1. En el recetario que usted consulto ??cuales son los 10 nodos centrales?
Los 10 nodos centrales del recetario consultado son: sal, aceite, cebolla, ajo, agua, harina de maiz precocida,pimenton,aji,huevo y pimienta-
NOTA en los nodos se evidencian platillos, en funcion al ejemplo que nos envio pude notar que usted sustituyo el mondongo res de sus nodos, asi mismo lo que hice fue regresar a la tabla de datos y buscar los ingredientes con frecuencias iguales o menores al aji, sustituyendo asi arepas rellenas rebosadas por huevo y chivo en coco por pimienta
2. De acuerdo con la investigacion que hizo, esos ingredientes estan presentes en la bolsa de comida que se distribuyen?
En relacion con los resultados obtenidos en la investigacion realizada, solo hay presencia de dos ingredeintes que coinciden y estos son: aceite y harina de maiz precocida.Los demas ingredientes no son distribuidos por el CLAP, es decir, no estan presenes en la bolsa/caja de comida que se distribuye.
3. De acuerdo con la investigacion que hizo ??esos nodos son productos autoctonos?
En la cocina venezolana,el uso de sofritos es parte de su esencia, los mismo se realizan mediante el uso de ingredientes como la cebolla, pimenton, aji,ajo,aceite.Asi mismo la harina de maiz precocida es un prodcuto caracteristico de la gastronomia venezolana, ya que es el ingrediente principal de las reconocidas arepas que caracterizan la identidad alimenticia de los venezolanos.En el caso de la pimienta, esta especie fue integrada en la cultura alimenticia de venezuela desde epoca de la colonizacion.El huevo forma parte de la alimentacion de los venezolanos como acompanante de desayunos,almuerzos y diferentes platillos.En tal sentido resulta que se podrian considerar como productos carcateristicos de la cultura alimenticia de los venezolanos.
Los demas productos como el agua y la sal, son parte esencial para la elaboracion de los alimentos, no solo son autocnos de la gastronomia venezolana sino tambien de la gastronomia en general en cualquier parte dle mundo.
4. De acuerdo con la investigacion que hizo ??Esos 10 nodos son productos que se consiguen facilmente?
Entre los productos que resultaron de los 10 nodos, tenemos que en su mayoria son vegetales y hortalizadas de tal manera que aunque se pueden encontrar en los ceentros de venta su costo media su adquisicion. En el caso del aceite, este se puede adquirir si se utilizan medios como la importacion de alimentos, el bachaqueo. La harina de maiz precocida, es un producto que en vistas de la situacion de escasez, la formas de adquirirla es mediante el bachaqueo. En relacion a la adquisicion de los huevos estos se consiguen,su adquisicion lo prodria mediar el costo de los mismo.
??Con el nuevo salario minimo que se ha decretado, cuanto de esos productos podrian adquirirse y que fraccion del salario minimo representa la adquisicion de esos productos?
El aumento emitido el dia jueves con fecha 1 de marzo 2018, representa un aumento del 58% del salario minimo; pasando de 248.510 bolivares a 392.646 bolivares. Aun cuando en el pais existe un organismo regulador de precios como es el SUNDDE, la realidad que vive dia a dia los venezolanos en relacion a los costos que deben cancelar por los productos de alimentacion en este caso, son diferenciales a los denominados precios justos.A continuacion se exponen los precios de los productos resaltantes en los 10 nodos:
-Sal: 58.000 bolivares (por kg)
-Cebolla: 120.000 bolivares (por kg)
-Ajo: 280.000 bolivares (por kg)
-Harina de maiz precocida: 25.940 bolivares (precio que marca)/ 100.000 bolivares (precio bachaqueado)(por kg)
-Pimenton: 150.000 bolivares (por kg)
-Aji: 90.000 bolivares (por kg)
-Huevo: 600.000 bolivares (por carton/ 32 unidades)
-Pimienta: 500.000 bolibares (por kg)
-Aceite: 280.000 (por litro)
nota: los precios fueron consultados en un supercado al que se visito, de la cadena UNICASA, en San Antonio de los Altos, Municipio Los Salias del estado Miranda, Venezuela.(el precio de la harina de maiz precocida fue traido de los medios de noticias ya que es un producto escaso).
Para los calculos a realizar hemos de utilizar las cifras del salario minimo integral, es decir, tomando en consideracion el bono de alimentacion que a su vez a traves del aumento se posiciona en )915.000 bolivares.
Suma del salario minimo mas bono de alimentacion
sum(392.646, 915.000)## [1] 1307.646Sal
(58.000*100)/ 1307.646## [1] 4.435451Cebolla
(120.000*100)/ 1307.646## [1] 9.176796Ajo
(280.000*100)/ 1307.646## [1] 21.41252Harina de maiz precocida (precio marcado)
(25.940*100)/1307.646## [1] 1.983717Harina de maiz precocida (precio bachaqueado)
(100.000*100)/1307.646## [1] 7.64733Pimenton
(150.000*100)/1307.646## [1] 11.47099Aji
(90.000*100)/1307.646## [1] 6.882597Huevo
(600.000*100)/1307.646## [1] 45.88398Pimienta
(500.000*100)/1307.646## [1] 38.23665Aceite
(280.000*100)/1307.646## [1] 21.41252En funcion a los calculos obtenidos tenemos que para adquirir un kg de sal se necesita un 4,43% del salario minimo integral, cebolla 9,17%, ajo 21,41%, harina de maiz precocida 1, 98% si es obtenida bajo el precio que marca y 7,64% si se adquiere mediante el bachaqueo, pimenton 11,47%, aji 6,88%, un carto de huevo equivale al 45,88%, pimienta 38,23% aceite 21,41%. Frente a estas fracciones se puede observar, que existe una imposibilidad de adquisicon con respecto al costo de los productos y el salario minimo integral. Es importante rescatar que si desearamos realizar estos calculos solo con el salario minimo los mismos resultarian aun mas insatisfactorios que los presentados.Esto se puede demostrar con un ejemplo breve: si tomamos el costo de un carton de huevo tenemos:
(600.000*100)/392.646## [1] 152.8094de esta manera resulta imposible adquirir para los venezolanos un carton de huevo ya que representa el 152.80% del salario; aun cuando con el salario minimo integral se puede adquirir el mismo imposiblita la adquisicon de todos los productos que exponen los nodos, sin tomar en cnsideracion los demas productos necesarios para la alimentacion de los venezolanos.
Visualizacion
V(g)$color<- "#9DE0AD"
V(g)$frame.color <- NA
V(g)$size <-degree(g)
V(g)$label.cex <-degree(g)/max(degree(g))
V(g)$label.color <- "#E5FCC2"E(g)$width<-E(g)$weight
E(g)$color <- rgb(234/255, 253/255, 230/255,
E(g)$weight/max(E(g)$weight))par(bg="gray15",mar=c(1,1,1,1))
plot(g)
10## [1] 10E(g)$arrow.size = 0.4
V(g)$size <-degree(g)/100
g <- simplify(g)par(bg="gray15",mar=c(1,1,1,1))
plot(g, layout = layout.graphopt)
todos2 <- delete.vertices(g,
V(g)[degree(g) <= median(degree(g))])todos2 <- simplify(todos2)
E(todos2)$color <- "gray90"
V(todos2)$color <- "magenta"
E(todos2)$arrow.size <- 0.4
V(todos2)$label.color <- "blue"par(bg="gray95",mar=c(1,1,1,1))
plot(todos2, layout = layout.gem)