Para poder iniciar el análisis de las recetas de cocina debo subir la data a R. Para ello instalo, si no lo he hecho previamente los paquetes que voy a emplear en este ejercicio. Después de instalar los paquetes, subo la data. Puedo hacerlo usando el script que se dará a continuación, o utilizando la opción Import Dataset que se encuentra en la pestaña superior derecha de su RStudio, en la pestaña Environment. El script supone que usted tiene la data en una hoja de cálculo de Excel (o similar):
# cambio mi directorio de trabajo hacia donde tengo la data
setwd("E:/redes/data/")
# instalacion de los paquetes, si no se han instalado
install.packages("readxl")
install.packages("igraph")
# subo la data
Ingredientes2 <- read_excel("~/Ingredientes2.xls")En mi caso, la data la tengo en un pendrive, en una carpeta llamada redes y dentro de esta, en otra carpeta llamada data. Como cambié mi directorio de trabajo hasta esa carpeta, al subir el archivo solo tengo que indicar el nombre. La tilde seguida del slash quiere decir “busca en el directorio actual el archivo Ingrediente2.xls”. Asegúrese de que el directorio de trabajo de R esté en el lugar en el que tiene los archivos.
El siguiente paso consiste en asegurarnos de que la data ha subido correctamente:
# busco cuantos casos y cuantas variables
dim(Ingredientes2)## [1] 908 2# verifico el nombre de las variables
names(Ingredientes2)## [1] "plato" "ingredientes"Tengo entonces 2 variables y 908 casos. Las variables se denominan “plato” e “ingredientes”. Para verificar que todos las categorias de cada una de las variables esté bien escrito, uso la función table(), y para facilitar la visualización pediré que me de la información en forma de marco de dato:
# verifico las categorias de la variable plato
data.frame(table(Ingredientes2$plato))## Var1 Freq
## 1 acras 9
## 2 aderezo pina aji dulce 7
## 3 ajicero leche 19
## 4 arepa 3
## 5 arroz 8
## 6 arroz con pollo 13
## 7 arvejas guisadas 11
## 8 asado negro 17
## 9 base pescado 16
## 10 bisque maricos 10
## 11 bolita platano 8
## 12 bolitas carne 16
## 13 bolitas queso 6
## 14 bollos pelones 21
## 15 buniulos yuca 8
## 16 calamares rebozados 5
## 17 caldo pichon paloma 6
## 18 caldo primavera 6
## 19 camarones en vinagreta 19
## 20 caraotas negras 9
## 21 carne mechada 16
## 22 chayota rellenas 6
## 23 chorizo 11
## 24 chutney mango 10
## 25 ciruelas pasas tocineta 2
## 26 conejo en coco 15
## 27 consome chipichipi 16
## 28 consome lagarto 12
## 29 consome ternera 13
## 30 corbullon mero 14
## 31 cordonices champiniones 10
## 32 crema aguacate 10
## 33 crema apio 5
## 34 empanada queso 6
## 35 ensalad berro 10
## 36 ensalada gallina 21
## 37 ensalada garbanzos 11
## 38 ensalada muchacho redondo 15
## 39 ensalada ruedas 12
## 40 espirales pavos higos al ron 7
## 41 fondo pollo 14
## 42 fondo vegetales 13
## 43 gallina rellena 12
## 44 guasacaca 9
## 45 guisado pato 13
## 46 hervido res 18
## 47 higado encebollado 7
## 48 langostino salsa aji dulce 8
## 49 lebranche asado 5
## 50 mandarina 6
## 51 marisco margar 13
## 52 mariscos encurtido 17
## 53 mayonesa 6
## 54 mondogo res 34
## 55 mostaza y miel 4
## 56 palo a pique 13
## 57 pargo relleno 16
## 58 pasta guacuco 9
## 59 pastel chucho 16
## 60 pastelitos 9
## 61 pate higado 11
## 62 pebre pollo 12
## 63 pepino relleno 6
## 64 pernil cochino horno 13
## 65 pimenton relleno 14
## 66 platano horneado 2
## 67 platano sancochado 3
## 68 platanos dulce 6
## 69 pollo al horno 17
## 70 puangol 13
## 71 pure apio 7
## 72 pure batata rosada 5
## 73 pure papa 7
## 74 pure platano 7
## 75 pure zanahoria 5
## 76 sancocho gallina 13
## 77 sancocho pescado 17
## 78 sanduchon 12
## 79 sopa lentejas 13
## 80 tacari chivo 11
## 81 tajada 2
## 82 tequenios 8
## 83 torta platano 6
## 84 torticas arroz 5
## 85 tostones 5
## 86 yoyo 7# verifico las categorias de la variable ingredientes
data.frame(table(Ingredientes2$ingredientes))## Var1 Freq
## 1 aceite 15
## 2 aceite maiz 19
## 3 aceite oliva 10
## 4 aceite oliva ev 1
## 5 aceite onotado 2
## 6 aceite vegetal 12
## 7 aceitunas verdes pimenton 1
## 8 acwite oliva 1
## 9 agua 47
## 10 aguacate 2
## 11 aji 1
## 12 aji dulce 35
## 13 aji piacante 1
## 14 aji picante 4
## 15 ajo 42
## 16 ajo porro 1
## 17 ajoporro 14
## 18 albahaca 1
## 19 alcaparra 1
## 20 alcaparras 1
## 21 anchoa 1
## 22 apio 3
## 23 apio espania 12
## 24 arroz 4
## 25 arroz blanco 1
## 26 arvejas 1
## 27 auyama 2
## 28 azuca 1
## 29 azucar 13
## 30 batata rosada 1
## 31 berro 1
## 32 bicarbobato 1
## 33 cabolla blanca 1
## 34 calamares 1
## 35 caldo ave 1
## 36 caldo pollo 2
## 37 caldo res 1
## 38 camarones 3
## 39 cambur topocho 1
## 40 canela 2
## 41 caraota negra 1
## 42 carne cochino molida 1
## 43 carne magra cochino 1
## 44 carne magra res 1
## 45 carne molida 3
## 46 carne res molida 1
## 47 cebolla 14
## 48 cebolla blanca 30
## 49 cebolla morada 2
## 50 cebollas blancas 1
## 51 cebollin 14
## 52 celeri 1
## 53 cerveza 1
## 54 chalota 1
## 55 chalotas 1
## 56 champinion 1
## 57 chayota 1
## 58 chipichipi 3
## 59 chivo 1
## 60 chucho 1
## 61 cilantro 24
## 62 ciruela pasas 1
## 63 clavo olor 8
## 64 coco 1
## 65 codorniz 1
## 66 comino 3
## 67 comino molido 1
## 68 comino polvo 3
## 69 compuesto 1
## 70 conejo 1
## 71 coniac 1
## 72 consome pollo 2
## 73 costilla cochino 1
## 74 costilla res 1
## 75 crema leche 5
## 76 cubito pollo 1
## 77 culantro 1
## 78 curry 1
## 79 curvina 1
## 80 encurtidos mostaza 1
## 81 esparragos verde 1
## 82 falda 1
## 83 frijoles blancos 1
## 84 gallina 2
## 85 gallina deshuesada 1
## 86 garbanzo 1
## 87 garbanzos 1
## 88 guacucos 3
## 89 guisante 1
## 90 guisantes 1
## 91 haeina maiz precocido 1
## 92 harina 1
## 93 harina maiz 2
## 94 harina maiz precocida 2
## 95 harina maiz precocido 1
## 96 harina trigo 4
## 97 hielo 1
## 98 higado pollo 1
## 99 higado res 1
## 100 higos secos 1
## 101 hoja platano 1
## 102 huesos ternera 1
## 103 huevo 12
## 104 intestino res 1
## 105 jamon 1
## 106 jamon endiablado 1
## 107 jengibre 1
## 108 jenjibre 1
## 109 jojoto 4
## 110 lagarto hueso 1
## 111 langostino 1
## 112 langostinos 1
## 113 laurel 11
## 114 laurel polvo 1
## 115 lebranche 1
## 116 leche 2
## 117 leche espesa 3
## 118 lechuga crioll 1
## 119 lentejas 1
## 120 limon 21
## 121 limones 1
## 122 maicena 1
## 123 mandarina 1
## 124 mango verde 1
## 125 manteca 1
## 126 manteca cochino 1
## 127 manteqilla 1
## 128 manteqilla sin sal 1
## 129 mantequilla 20
## 130 manzana verde 1
## 131 mapuey 1
## 132 mayonesa 4
## 133 mejillones 1
## 134 mero roca 1
## 135 miel 2
## 136 mostaza 4
## 137 mostaza al estragon 1
## 138 mostaza encurtida 1
## 139 mostaza encurtido 1
## 140 muchacho redondo 2
## 141 nabo 1
## 142 naranja 2
## 143 niame 3
## 144 nuez moscada 4
## 145 ocumo 4
## 146 oregano 1
## 147 oregano polvo 1
## 148 pan blanco cuadrado 1
## 149 pan rallado 2
## 150 pan sandwich 1
## 151 panza res 1
## 152 papa 6
## 153 papas 3
## 154 papelon 2
## 155 papelon blanco 1
## 156 papelon rallado 4
## 157 pargo 2
## 158 pasas 2
## 159 pasta 1
## 160 pasta tomate 2
## 161 pata res 1
## 162 pato 1
## 163 pecho res 1
## 164 pechuga 1
## 165 pechuga pavo 1
## 166 pechuga pollo 1
## 167 pepino 1
## 168 pepitonas 1
## 169 perejil 16
## 170 perejil liso 1
## 171 pernil cochino 1
## 172 pernil cuarto traseo 1
## 173 picante 3
## 174 pichon paloma 1
## 175 pimebton 1
## 176 pimenton 21
## 177 pimenton morron 1
## 178 pimenton rojo 6
## 179 pimenton verde 4
## 180 pimeron verde 1
## 181 pimienta 5
## 182 pimienta blanca 6
## 183 pimienta guayabita 6
## 184 pimienta negra 32
## 185 pimienta negra granos 1
## 186 pimienton 1
## 187 pina 1
## 188 platano maduro 8
## 189 platano verde 2
## 190 pollo 4
## 191 pomienta negra 1
## 192 queso amarillo 1
## 193 queso anio 1
## 194 queso blanco 3
## 195 queso blanco blando 2
## 196 queso blanco duro 2
## 197 queso blanco semiduro 3
## 198 queso crema 2
## 199 queso parmesano 3
## 200 quinchoncho 1
## 201 rabano 1
## 202 remolacha 1
## 203 repollo 3
## 204 ron 2
## 205 sal 65
## 206 sal marina 1
## 207 sal zanahorias 1
## 208 sala inglesa 1
## 209 salsa inglesa 7
## 210 salsa picante 2
## 211 salsa soya 1
## 212 salsa tabasco 1
## 213 tajada fritas 1
## 214 tocineta 4
## 215 tocino 1
## 216 tomate 14
## 217 tomate perita 1
## 218 tomates 1
## 219 tomillo 7
## 220 tomillo molido 1
## 221 vainita 1
## 222 vieiras 1
## 223 vinagre 4
## 224 vinagre balsamico 1
## 225 vinagre blanco 4
## 226 vinagre vino 2
## 227 vino blanca 1
## 228 vino blanco 1
## 229 vino blanco seco 3
## 230 vino cocina 1
## 231 vino moscatel 2
## 232 vino tinto dulce 1
## 233 yema huevo 2
## 234 yerbabuena 8
## 235 yuca 4
## 236 zanahoria 14En la variable ingrediente numerosas categorías tienen errores. Por ejemplo:
¿Qué otros errores encuentra en el listado?
Ahora cambiaremos esos contenidos de forma tal que las categorías estén perfectamente limpias. Para eso emplearemos la función gsub(). Ponga atención a cada script.
# voy a cambiar la palabra aceite por la palabra aceite vegetal
# como la palabra aceite está presente en otras expresiones, debo
# decirle a R que solo cambie la palabra aceite seguida de mas nada
# para ello inicio la palabra con un caret y la finalizo con el
# signo de dolar.
Ingredientes2$ingredientes <- gsub("^aceite$",
"aceite vegetal",
Ingredientes2$ingredientes)
# verifico. Si todo funciono, debe haber 27 veces la frase aceite vegetal
# pedire que R me muestre solo los primeros seis casos
head(data.frame(table(Ingredientes2$ingredientes)))## Var1 Freq
## 1 aceite maiz 19
## 2 aceite oliva 10
## 3 aceite oliva ev 1
## 4 aceite onotado 2
## 5 aceite vegetal 27
## 6 aceitunas verdes pimenton 1Cambiaré ahora lo que corresponde a aceite de oliva
Ingredientes2$ingredientes <- gsub("aceite oliva ev",
"aceite oliva",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("acwite oliva",
"aceite oliva",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("^aji$",
"aji picante",
Ingredientes2$ingredientes)Cambiaré el resto de las categorias que lo ameriten. Intente interpretar lo que se ha hecho. Si tiene dudas, pregunte
Ingredientes2$ingredientes <- gsub("^aji$",
"aji picante",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("aji piacante",
"aji picante",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("ajo porro",
"ajoporro",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("alcaparras",
"alcaparra",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("arroz blanco",
"arroz",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("^azuca$",
"azucar",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("carne res molida",
"carne molida",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("cebolla blanca|cebollas blancas",
"cebolla",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("cabolla blanca",
"cebolla",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("chalotas",
"chalota",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("comino molido|comino polvo",
"comino",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("garbanzos",
"garbanzo",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("harina maiz precocida|harina maiz precocido",
"harina maiz",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("jenjibre",
"jengibre",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("langostinos",
"langostino",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("limones",
"limon",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("manteqilla sin sal",
"mantequilla sin sal",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("^manteqilla$",
"mantequilla",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("^mostaza encurtido$",
"mostaza encurtida",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("^pan blanco cuadrado$",
"pan sandwich",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("pechuga pollo",
"pechuga",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("pimebton|pimienton|pimenton morron",
"pimenton",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("pimeron verde",
"pimenton verde",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("pimienta negra granos|pomienta negra",
"pimienta negra",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("sala inglesa",
"salsa inglesa",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("tomate perita|tomates",
"tomate",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("vinagre blanco",
"vinagre",
Ingredientes2$ingredientes)
Ingredientes2$ingredientes <- gsub("vino blanca",
"vino blanco",
Ingredientes2$ingredientes)Reviso
data.frame(table(Ingredientes2$ingredientes))## Var1 Freq
## 1 aceite maiz 19
## 2 aceite oliva 12
## 3 aceite onotado 2
## 4 aceite vegetal 27
## 5 aceitunas verdes pimenton 1
## 6 agua 47
## 7 aguacate 2
## 8 aji dulce 35
## 9 aji picante 6
## 10 ajo 42
## 11 ajoporro 15
## 12 albahaca 1
## 13 alcaparra 2
## 14 anchoa 1
## 15 apio 3
## 16 apio espania 12
## 17 arroz 5
## 18 arvejas 1
## 19 auyama 2
## 20 azucar 14
## 21 batata rosada 1
## 22 berro 1
## 23 bicarbobato 1
## 24 calamares 1
## 25 caldo ave 1
## 26 caldo pollo 2
## 27 caldo res 1
## 28 camarones 3
## 29 cambur topocho 1
## 30 canela 2
## 31 caraota negra 1
## 32 carne cochino molida 1
## 33 carne magra cochino 1
## 34 carne magra res 1
## 35 carne molida 4
## 36 cebolla 46
## 37 cebolla morada 2
## 38 cebollin 14
## 39 celeri 1
## 40 cerveza 1
## 41 chalota 2
## 42 champinion 1
## 43 chayota 1
## 44 chipichipi 3
## 45 chivo 1
## 46 chucho 1
## 47 cilantro 24
## 48 ciruela pasas 1
## 49 clavo olor 8
## 50 coco 1
## 51 codorniz 1
## 52 comino 7
## 53 compuesto 1
## 54 conejo 1
## 55 coniac 1
## 56 consome pollo 2
## 57 costilla cochino 1
## 58 costilla res 1
## 59 crema leche 5
## 60 cubito pollo 1
## 61 culantro 1
## 62 curry 1
## 63 curvina 1
## 64 encurtidos mostaza 1
## 65 esparragos verde 1
## 66 falda 1
## 67 frijoles blancos 1
## 68 gallina 2
## 69 gallina deshuesada 1
## 70 garbanzo 2
## 71 guacucos 3
## 72 guisante 1
## 73 guisantes 1
## 74 haeina maiz precocido 1
## 75 harina 1
## 76 harina maiz 5
## 77 harina trigo 4
## 78 hielo 1
## 79 higado pollo 1
## 80 higado res 1
## 81 higos secos 1
## 82 hoja platano 1
## 83 huesos ternera 1
## 84 huevo 12
## 85 intestino res 1
## 86 jamon 1
## 87 jamon endiablado 1
## 88 jengibre 2
## 89 jojoto 4
## 90 lagarto hueso 1
## 91 langostino 2
## 92 laurel 11
## 93 laurel polvo 1
## 94 lebranche 1
## 95 leche 2
## 96 leche espesa 3
## 97 lechuga crioll 1
## 98 lentejas 1
## 99 limon 22
## 100 maicena 1
## 101 mandarina 1
## 102 mango verde 1
## 103 manteca 1
## 104 manteca cochino 1
## 105 mantequilla 21
## 106 mantequilla sin sal 1
## 107 manzana verde 1
## 108 mapuey 1
## 109 mayonesa 4
## 110 mejillones 1
## 111 mero roca 1
## 112 miel 2
## 113 mostaza 4
## 114 mostaza al estragon 1
## 115 mostaza encurtida 2
## 116 muchacho redondo 2
## 117 nabo 1
## 118 naranja 2
## 119 niame 3
## 120 nuez moscada 4
## 121 ocumo 4
## 122 oregano 1
## 123 oregano polvo 1
## 124 pan rallado 2
## 125 pan sandwich 2
## 126 panza res 1
## 127 papa 6
## 128 papas 3
## 129 papelon 2
## 130 papelon blanco 1
## 131 papelon rallado 4
## 132 pargo 2
## 133 pasas 2
## 134 pasta 1
## 135 pasta tomate 2
## 136 pata res 1
## 137 pato 1
## 138 pecho res 1
## 139 pechuga 2
## 140 pechuga pavo 1
## 141 pepino 1
## 142 pepitonas 1
## 143 perejil 16
## 144 perejil liso 1
## 145 pernil cochino 1
## 146 pernil cuarto traseo 1
## 147 picante 3
## 148 pichon paloma 1
## 149 pimenton 24
## 150 pimenton rojo 6
## 151 pimenton verde 5
## 152 pimienta 5
## 153 pimienta blanca 6
## 154 pimienta guayabita 6
## 155 pimienta negra 34
## 156 pina 1
## 157 platano maduro 8
## 158 platano verde 2
## 159 pollo 4
## 160 queso amarillo 1
## 161 queso anio 1
## 162 queso blanco 3
## 163 queso blanco blando 2
## 164 queso blanco duro 2
## 165 queso blanco semiduro 3
## 166 queso crema 2
## 167 queso parmesano 3
## 168 quinchoncho 1
## 169 rabano 1
## 170 remolacha 1
## 171 repollo 3
## 172 ron 2
## 173 sal 65
## 174 sal marina 1
## 175 sal zanahorias 1
## 176 salsa inglesa 8
## 177 salsa picante 2
## 178 salsa soya 1
## 179 salsa tabasco 1
## 180 tajada fritas 1
## 181 tocineta 4
## 182 tocino 1
## 183 tomate 16
## 184 tomillo 7
## 185 tomillo molido 1
## 186 vainita 1
## 187 vieiras 1
## 188 vinagre 8
## 189 vinagre balsamico 1
## 190 vinagre vino 2
## 191 vino blanco 2
## 192 vino blanco seco 3
## 193 vino cocina 1
## 194 vino moscatel 2
## 195 vino tinto dulce 1
## 196 yema huevo 2
## 197 yerbabuena 8
## 198 yuca 4
## 199 zanahoria 14