Lectura del Dataset

En esta sección se lee el archivo CSV llamado “Encuesta.csv” el cual almacena los datos en el objeto llamado datos.Se cambian los nombres de las columnas ya que tienen nombres extremadamente largos por lo que se cambiara por un nombre más corto y descriptivo.

#Leer archivo
datos <- read.csv("c:/R/Encuesta.csv", header = TRUE, sep=",")

#Cambio de nombres a las columnas
names(datos)[which(names(datos) == "X.A.cuál.de.tus.compañeros.es.a.quien.más.le.pides.ayuda.cuando.necesitas.algo.en.la.escuela.")] <- "Ayuda"
names(datos)[which(names(datos) == "X.Cuál.es.tu.nombre.")] <- "Nombre"
names(datos)[which(names(datos) == "X.A.cuál.de.tus.compañeros.consideras.el.más.Inteligente.")] <- "Inteligente"
names(datos)[which(names(datos) == "X.A.cuál.de.tus.compañeros.consideras.que.se.le.facilita.más.hacer.amigos..es.decir..que.es.el.más.Amigable.")] <- "Amigable"

Sociograma “Compañero al que más pides ayuda”

En esta línea se extrae la columna Nombre del data frame datos y asigná una nueva variable llamada Nombres y al igual que la columna Ayuda.

Nombres <- datos$Nombre
Ayuda <- datos$Ayuda
#Se genera un dataframe con 3 columnas
dataf <- data.frame(Nombres, Ayuda)
dataf
##            Nombres       Ayuda
## 1        Estefania     Gloria 
## 2           Uziel       Uziel 
## 3       Margarita       Wendy 
## 4      Jose Adrian      Wendy 
## 5           Edgar    Francisco
## 6          Alexia       Hanny 
## 7         Enrique    Jonathan 
## 8           Karla      Alexia 
## 9           Cesar   Alejandra 
## 10      Alejandra       Wendy 
## 11          Wendy  Jose Adrian
## 12        Daniela      Evelin 
## 13         Gloria    Estefania
## 14          Hanny      Alexia 
## 15      Jose Luis       Adrian
## 16     Angel Jesus      Wendy 
## 17          Victor  Margarita 
## 18             Edy Jose Adrian
## 19 Luis Francisco   Margarita 
## 20    Angel Jahir  Jose Adrian
## 21         Evelin     Daniela

###Incluimos Librerias

library("igraph")
## Warning: package 'igraph' was built under R version 4.3.3
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
g = graph.data.frame(dataf, directed = T)
## Warning: `graph.data.frame()` was deprecated in igraph 2.0.0.
## ℹ Please use `graph_from_data_frame()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Construccion del grafo dirigido

Creación del Sociograma del “Compañero al que mas pides ayuda”.

plot.igraph(g,
            layout = layout_with_fr,
            edge.curved = F, #Arista curva F/T
            edge.color = "black", #Color de arista
            edge.width = .10, #Ancho de arista
            edge.arrow.size = 0.3,#Tamaño de felchas
            vertex.color = "#BB8FCE", #Color de nodos
            vertex.size = 15, #Tamaño de nodos
            edge.length = 5, #Longitud de arista
            main = "GRAFO EL QUE MAS  AYUDA", #Titulo del grafo
            vertex.label.cex = 0.8) #Tamaño de etiqueta del nodo

Interpretación de Resultados

En esta sección analizaremos los resultados de la persona que es considerada como a la que más le piden ayuda dentro del grupo de alumnos de 4to semestre de la carrera de Ingeniería Industrial A y sus relaciones, donde se detectan las siguientes personas como:

El alumno lider: Wendy. El alumno Eminecia Gris: José Adrian El alumno Aislado: Uziel El alumno Marginado: Angel Jesus, Angel Jahir, Edy, Cesar, Victor, Luis Francisco, Enrique, Karla, Jose Luis, Edgar. El alumno Rechazado Parcial o Total: No se puede detectar un alumno como el Rechazado parcial o total, ya que no existe un alumno que tenga mas rechazos que aceptaciones o solo rechazos. El alumno promedio: Margarita El alumno Polemico:Wendy

Sociograma “El más Inteligente”

En esta línea se extrae la columna Nombre del data frame datos y asigná una nueva variable llamada Nombres y al igual que la columna Inteligente.

Nombres <- datos$Nombre
Inteligente <- datos$Inteligente
#Se genera un dataframe con 3 columnas
dataI <- data.frame(Nombres, Inteligente)
dataI 
##            Nombres Inteligente
## 1        Estefania Angel Jesus
## 2           Uziel       Uziel 
## 3       Margarita       Wendy 
## 4      Jose Adrian Angel Jesus
## 5           Edgar  Jose Adrian
## 6          Alexia       Hanny 
## 7         Enrique    Jonathan 
## 8           Karla  Angel Jesus
## 9           Cesar       Wendy 
## 10      Alejandra       Wendy 
## 11          Wendy  Angel Jesus
## 12        Daniela       Hanny 
## 13         Gloria  Angel Jesus
## 14          Hanny      Alexia 
## 15      Jose Luis  Jose Adrian
## 16     Angel Jesus       Gema 
## 17          Victor      Hanny 
## 18             Edy      Hanny 
## 19 Luis Francisco  Angel Jesus
## 20    Angel Jahir  Angel Jesus
## 21         Evelin        Gema
h = graph.data.frame(dataI, directed = T)

Construccion del grafo dirigido

Creación del Sociograma del “Compañero mas inteligente”.

plot.igraph(h,
            layout = layout_with_fr,
            edge.curved = F, 
            edge.color = "black", 
            edge.width = .10,
            edge.arrow.size = 0.3,
            vertex.color = "#87CEFA",
            vertex.size = 12,
            edge.length = 5,
            main = "GRAFO EL QUE MAS INTELIGENTE",
            vertex.label.cex = 0.8   )

Interpretación de Resultados

En esta sección analizaremos los resultados de la persona que es considerada como la más Inteligente dentro del grupo de alumnos de 4to semestre de la carrera de Ingeniería Industrial A y sus relaciones, donde se detectan las siguientes personas como:

El alumno lider: Ángel Jesús El alumno Eminecia Gris: No se puede observar un alumno que tenga una relación de reciprocidad con el líder, por lo tanto se puede decir que no hay un alumno denominado como eminencia gris El alumno Aislado: Uziel El alumno Marginado: Victor, Edy, Daniela, Luis Francisco, Karla, Estefania, Angel Jahir, Gloria, Evelyn, Jose Luis, Edgar, Cesar, Margarita, Alejandra, Enrique. El alumno Rechazado Parcial o Total: No hay un alumno que se visualice como el alumno que recibe mas rechazos que aceptaciones o que solo recibe rechazos. El alumno promedio: Wendy y Hanny El alumno Polemico:Wendy

Sociograma “El más Amigable”

En esta línea se extrae la columna Nombre del data frame datos y asigná una nueva variable llamada Nombres y al igual que la columna Amigable.

Nombres <- datos$Nombre
Amigable <- datos$Amigable
#Se genera un dataframe con 3 columnas
dataA <- data.frame(Nombres, Amigable)
dataA
##            Nombres    Amigable
## 1        Estefania  Jose Luis 
## 2           Uziel  Jose Adrian
## 3       Margarita   Francisco 
## 4      Jose Adrian  Francisco 
## 5           Edgar   Francisco 
## 6          Alexia   Jose Luis 
## 7         Enrique  Jose Adrian
## 8           Karla  Jose Adrian
## 9           Cesar   Jose Luis 
## 10      Alejandra       Wendy 
## 11          Wendy  Jose Adrian
## 12        Daniela     Daniela 
## 13         Gloria       Wendy 
## 14          Hanny   Jose Luis 
## 15      Jose Luis  Jose Adrian
## 16     Angel Jesus Jose Adrian
## 17          Victor  Jose Luis 
## 18             Edy  Francisco 
## 19 Luis Francisco      Víctor 
## 20    Angel Jahir   Jose Luis 
## 21         Evelin     Daniela
j = graph.data.frame(dataA, directed = T)

Construccion del grafo dirigido

Creación del Sociograma del “Compañero mas amigable”.

plot.igraph(j,
            layout = layout_with_fr,
            edge.curved = F, 
            edge.color = "black", 
            edge.width = .10,
            edge.arrow.size = 0.3,
            vertex.color = "#F08080",
            vertex.size = 12,
            edge.length = 5,
            main = "GRAFO EL MAS AMIGABLE",
            vertex.label.cex = 0.8   )

Interpretación de Resultados

En esta sección analizaremos los resultados de la persona que es considerada como la más Amigable dentro del grupo de alumnos de 4to semestre de la carrera de Ingeniería Industrial A y sus relaciones, donde se detectan las siguientes personas como:

El alumno lider: José Luis y José Adrian El alumno Eminecia Gris: No se puede observar un alumno que tenga una relación de reciprocidad con el líder, por lo tanto se puede decir que no hay un alumno denominado como eminencia gris. El alumno Aislado: Luis Francisco El alumno Marginado: Daniela El alumno Rechazado Parcial o Total: No se puede detectar un alumno como el Rechazado parcial o total, ya que no existe un alumno que tenga mas rechazos que aceptaciones o solo rechazos. El alumno promedio: Wendy El alumno Polemico:Jose Adrian