Ejercicios: Grafos
Franchesque Jessica, Hernández Ronald, Oberto Bárbara
2 de marzo de 2018
Paso a paso para un grafo.
Introducción
En el transcurso de la primera semana de marzo del año en curso, se elaboraron actividades enmarcadas en la implementación de Grafos, como herramienta aplicada para la interpretación de datos. En este sentido, se utilizó para profundizar en el análisis de datos del artículo científico elaborado en semanas anteriores.
matriz de incidencia
load ("~/PRIMERO.RData")matriz <- table(Ingredientes3$recetas, Ingredientes3$ingredientes)
head.matrix(matriz)##
## aceite aceite de ajonjoli aceite de oliva aceituna
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 1 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## adobo agar-agar agua agua de mar aguacate
## acras 0 0 0 0 0
## agar-agar de piña 0 1 1 0 0
## agua de cebada 0 0 1 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 1 0 0
##
## aguardiente blanco aguardiente de caña aji ajo
## acras 0 0 1 1
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 1 2
## albondigas de carne 0 0 0 1
## almidoncitos 0 0 0 0
##
## ajoporro albahaca alcaparra almendra
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## almidon de maiz almidon de yuca anchoas
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 1 0 0
##
## anis en pepitas apio apio españa arroz arveja atun
## acras 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 0 0 0
## albondigas de carne 0 0 0 0 0 0
## almidoncitos 1 0 0 0 0 0
##
## auyama avena en hojuelas azucar bacalao bagre
## acras 0 0 0 0 0
## agar-agar de piña 0 0 1 0 0
## agua de cebada 0 0 1 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## batata berenjena bicarbonato bizcochuelo botuto
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## brandy cabello de angel cabeza de gallina
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## cabeza de pescado cacao cachua cafe
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## cafe instantaneo calabacin calamar caldo de gallina
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## caldo de pollo camaron cambur canela cangrejo azul
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 1 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 1 0
##
## caracol caramelo caraota carite carne
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## carne de cerdo carne de chivo carne de gallina
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## carne de res carne molida carne para guisar caviar
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 1 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## cazabe cazon cebada cebolla cebollin celeri cerezas
## acras 0 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0 0
## agua de cebada 0 0 1 0 0 0 0
## albondigas con papas 0 0 0 1 0 0 0
## albondigas de carne 0 0 0 1 0 0 0
## almidoncitos 0 0 0 0 0 0 0
##
## cerveza chalotas champiñon champiñones chayota
## acras 0 1 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## chicharron chile picante chipichipis chirelito
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## chivo chocolate chocolate amargo chorizo
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## chuleta de cochino churrasco de solomo cilantro
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 1
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## ciruelas pasas ciruelas rojas clavo de especia
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 1
##
## cochino coco cocuy colorante colorante verde comino
## acras 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 0 0 0
## albondigas de carne 1 0 0 0 0 0
## almidoncitos 0 0 0 0 0 0
##
## concha de piña conserva de coco consome de carne
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## consome de pescado consome de pollo coñac
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## corazon de gallina coserva de coco
## acras 0 0
## agar-agar de piña 0 0
## agua de cebada 0 0
## albondigas con papas 0 0
## albondigas de carne 0 0
## almidoncitos 0 0
##
## costilla de cerdo crema de leche crema para batir
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## cuajada criolla cubito culantro curry encurtidos
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## escarola espinaca estragon faisan falda de lagarto
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## falda de res fideos de sopa filete de atun
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## filete de pargo foie gras frijoles galleta maria
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## gallina gallinetas garbanzos gelatina geranio
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## ginebra grand marnier guacuco guanabana guarnicion
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## guayaba guindas guisante harina de maiz
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## harina de trigo helado de ron con pasas hielo
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## hierbabuena higado de cochino higado de gallina
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## higado de pollo higo hoja de platano
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## hojas de platano hojas secas de maiz huevo
## acras 0 0 1
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 1
## albondigas de carne 0 0 1
## almidoncitos 0 0 0
##
## intestino delgado de cochino jamon jengibre jojoto
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## jugo de limon jugo de naranja lagarto
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## lagarto de res langosta lapas laurel leche
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 1
## almidoncitos 0 0 0 0 0
##
## leche condensada leche de coco lechosa lechuga
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## lengua de res lentejas levadura licor de cacao
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## limon lomito de ganso lomito de res lomo de cochino
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## lomo de res maiz malta mango mani manteca
## acras 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 0 0 0
## albondigas de carne 0 0 0 0 0 0
## almidoncitos 0 0 0 0 0 1
##
## manteca de cacao manteca vegetañ mantequilla
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## manzana mapuey masa de bombon mayonesa
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## mazapan de mani medallones de pollo mejillon
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## mejorana melocotones menta mero miel molido
## acras 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 0 0 0
## albondigas de carne 0 0 0 0 0 0
## almidoncitos 0 0 0 0 0 0
##
## mollejas de pollo mora mostaza muchacho redondo
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## muslo de pollo naranja nueces nuez moscada ñame
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## ocumo oimienta negra onoto oregano pabilo pan
## acras 1 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 0 0 1
## albondigas de carne 0 0 0 0 0 1
## almidoncitos 0 0 0 0 0 0
##
## panza de res papa papelon pargo pasa pasas pasta
## acras 0 0 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0 0
## albondigas con papas 0 1 0 0 0 0 0
## albondigas de carne 0 0 0 0 0 0 0
## almidoncitos 0 0 1 0 0 0 0
##
## pasta de ajo pasta de foie gras pasta de higado
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## pasta de tomate patas de pollo patas de res
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 1 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## paticas de cochino patilla pato pavo pepinillos
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## pepino pepitona peras perejil pernil de cochino
## acras 0 0 0 1 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 1 0
## almidoncitos 0 0 0 0 0
##
## pescado pettis pois picante pimenton pimienta piña
## acras 0 0 0 0 1 0
## agar-agar de piña 0 0 0 0 0 0
## agua de cebada 0 0 0 0 0 0
## albondigas con papas 0 0 0 1 0 0
## albondigas de carne 0 0 0 0 1 0
## almidoncitos 0 0 0 0 0 0
##
## platano pollo polvo de hornear pulmon de cochino
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## pulpa de piña pulpa negra de res punta de res
## acras 0 0 0
## agar-agar de piña 1 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 1 0
## almidoncitos 0 0 0
##
## queso amarillo queso blanco queso crema
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## queso mozzarella queso parmesano rabo de cochino
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## rabo de res radicchio repollo riñon de cochino
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## riñones de res romero sal salchicha salsa de carne
## acras 0 0 1 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 1 0 0
## albondigas de carne 0 0 1 0 0
## almidoncitos 0 0 0 0 0
##
## salsa de soya salsa de tomate salsa inglesa
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 1
## almidoncitos 0 0 0
##
## salsa picante salsa velutte sangre de cochino
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## sangre de res sardinas semilla de cilantro
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## semilla de trigo semillas de anis semillas de cacao
## acras 0 0 0
## agar-agar de piña 0 0 0
## agua de cebada 0 0 0
## albondigas con papas 0 0 0
## albondigas de carne 0 0 0
## almidoncitos 0 0 0
##
## semillas de hinojo seso de res solomo tocineta
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## tocino tocino de cochino tomate tomillo toronja
## acras 0 0 0 1 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 1 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## tripa de perla tripas de cerdo trucha trufas uvas
## acras 0 0 0 0 0
## agar-agar de piña 0 0 0 0 0
## agua de cebada 0 0 0 0 0
## albondigas con papas 0 0 0 0 0
## albondigas de carne 0 0 0 0 0
## almidoncitos 0 0 0 0 0
##
## vainilla vainita vegetales encurtidos vierias
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## vinagre vinagre de jerez vino visceras de cochino
## acras 0 0 0 0
## agar-agar de piña 0 0 0 0
## agua de cebada 0 0 0 0
## albondigas con papas 0 0 0 0
## albondigas de carne 0 0 0 0
## almidoncitos 0 0 0 0
##
## yuca zanahoria
## acras 0 0
## agar-agar de piña 0 0
## agua de cebada 0 0
## albondigas con papas 0 0
## albondigas de carne 0 0
## almidoncitos 0 0Grafo
library(igraph)##
## Attaching package: 'igraph'## The following objects are masked from 'package:stats':
##
## decompose, spectrum## The following object is masked from 'package:base':
##
## uniong<-graph_from_incidence_matrix(matriz,mode=c("in"),
weighted = TRUE,
directed = TRUE)g<-simplify(g)
plot(g)
Ejercicios 1. En el recetario que usted consultó ¿Cuáles son los 10 nodos centrales? Los 10 nodos centrales se presentan en el cuadro a continuación:
grado <-sort(degree(g), decreasing = TRUE)
grado <- grado[grado >= 5]
head(grado,10)## sal cebolla ajo aceite agua pimienta
## 172 121 118 107 107 101
## azucar mantequilla huevo pimenton
## 73 62 60 592. De acuerdo a la investigación que hizo ¿Esos ingredientes están presentes en la bolsa de comida que se distribuyen? Con base a la información obtenida de www.clap.patria.org.ve y al formulario aplicado a los encuestados, se puede decir que, de los 10 ingredientes del nodo central de los recetarios consultados, sólo están presentes en la bolsa de comida que se distribuye el azúcar y el aceite.
3. De acuerdo con la investigación que hizo ¿Esos 10 nodos son productos autóctonos? Se entiende autóctono como lo que se produce en Venezuela. Los 10 nodos centrales son productos autóctonos debido que, todos se cultivan o producen en el país. Sin embargo, con base en lo investigado se puede afirmar que debido a la caída de la producción nacional, especialmente en los rubros azucar y aceite, se ha acudido al mecanismo de importación para lograr satisfacer la demanda interna, lo que implica que algunos de los productos consumidos puedan no ser de producción nacional.
4. De acuerdo con la investigación que hizo ¿Esos 10 nodos son productos que se consiguen fácilmente? Con el nuevo salario mínimo que se ha decretado ¿Cuántos de esos productos podrían adquirirse y qué fracción del salario mínimo representa la adquisición de esos productos? A lo largo de nuestra investigación, pudimos notar que en el territorio nacional se presenta escasez de ciertos alimentos, los cuales en su mayoría son prefabricados.En el cuadro anterior, el 50% de los nodos centrales corresponden a lo que culturalmente conocemos como aliños y condimientos y, un 20% representado por agua y huevos. Estos alimentos son de fácil acceso en supermercados, mercados populares y otros. A diferencia del 70% anterior, los productos restantes (aceite, mantequilla y azúcar) no se encuentran habitualmente en cualquier establecimiento de venta de alimentos, por lo que son de complicado acceso, sin embargo se deben tener presente dos elementos, por un lado, se pueden conseguir importados y por otro, el aceite y azúcar comúmente son distribuídos por los CLAP. El 1 de marzo del 2018 el Presidente Nicolás Maduro decretó un aumento del 58% del salario mínimo y, 67% del bono de alimentación, lo que situó el salario mínimo integral en un total de 1.307.646 Bs. Aunque, existe la Superintendencia Nacional para la Defensa de los Derechos Socioeconómicos (SUNDDE), la realidad de los precios difiere a los establecidos por la Institución gubernamental. Así, encontramos que los precios de los 10 productos del nodo central son: Sal: Bs. 40.000/Kg Cebolla: Bs. 110.000/Kg Ajo: Bs. 300.000/Kg Aceite: Bs. 150.000/Kg (no regulado) Agua: Bs. 10.000/20 Lt Pimienta: Bs. 100.000/100 Gr Azúcar: Bs. 140.000/Kg (no regulado) Mantequilla: Bs. 150.000/Kg (regulado) Huevo: Bs. 500.000/Cartón Pimentón: Bs. 100.000/Kg Nota: estos precios son un aproximado y estan sometidos a los aumentos semanales y hasta diarios, así como también pueden variar de un local a otro.
sum(40000,110000,300000,150000,10000,100000,140000,150000,500000,100000)## [1] 16000001600000*100/1307646## [1] 122.35731600000/1307646## [1] 1.223573Se necesita un total de Bs. 1.600.000 para adquirir estos ingredientes, es decir, 1.22 sueldos mínimo integral. En este sentido, se podría adquirir todos los ingredientes a excepción de 1Kg de ajo o, modificar las cantidades de cada producto de forma que se puedan adquirir todos.
Visualización
V(g)$color<- "#191970"
V(g)$frame.color <- NA
V(g)$size <-degree(g)
V(g)$label.cex <-degree(g)/max(degree(g))
V(g)$label.color <- "#008B8B"
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="gray87",mar=c(1,1,1,1))
plot(g)
E(g)$arrow.size = 0.4
V(g)$size <-degree(g)/100
g <- simplify(g)
par(bg="gray87", mar=c(1,1,1,1))
plot(g, layout = layout.graphopt)
Allinone <- delete.vertices(g,
V(g)[degree(g) <= median(degree(g))])
Allinone <- simplify(Allinone)
E(Allinone)$color <- "thistle1"
V(Allinone)$color <- "gray30"
E(Allinone)$arrow.size <- 0.4
V(Allinone)$label.color <-"pink4"
par(bg="gray87", mar=c(1,1,1,1))
plot(Allinone, layout = layout.gem)