Sociograma

El estudio de las interacciones sociales dentro de un grupo es esencial para comprender su dinámica y funcionamiento. En este contexto, el desarrollo de un sociograma y el análisis estadístico del grupo se convierten en herramientas perfectas para visualizar las relaciones entre sus miembros.

En esta ocacion, se llevo a cabo un análisis de las respuestas proporcionadas por el grupo 8A de la carrera de Ingeniería Industrial del Instituto Tecnologico Superior de la Region de los Llanos, obtenidas a través de un formulario. Este formulario planteó las siguientes preguntas: “¿Con quién de tus compañeros trabajarías en equipo?”, “¿Con quién NO trabajarías en equipo?” y “¿A quién consideras el más inteligente de tu salón?”. El objetivo de este análisis es comprender la dinámica y la comunicación dentro del grupo.

¿Con quién de tus compañeros harías pareja para un trabajo en equipo?

Al analizar las respuestas a esta pregunta, podemos interpretar datos que pueden ser clasificados en diversas tipologías. Además, podemos inferir posibles razones detrás de estas respuestas. Por ejemplo, al observar las respuestas a la primera pregunta, podemos notar que no todos los miembros del grupo están conectados, sino que se forman varios subgrupos de elección mutua. Esto podría indicar una division de amistades dentro del mismo salon. En el análisis, podemos identificar los siguientes tipos de relaciones sociales. Líder: Se puede deducir que el puesto de líder, le pertenece a Alejandro, siendo la persona que mas seleccionan, dicho de otra manera, es la persona con la cual mas personas quisieran hacer pareja. Eminencia gris: este puesto le pertenece a Cázales Alejandra, siendo la elección mutua de parte del líder. El aislado: este puesto le pertenece a Jose Antonio ya que el no tiene a alguien a quien le guste elegir para trabajar en equipo y debido a eso solo se selecciono a si mismo y una unica persona lo eligio a el. El promedio: esta tipologia le pertenece a Montelongo debido a que suele tener algunas aceptaciones las cuales se puede considerar como promedio

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
library("dplyr")
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:igraph':
## 
##     as_data_frame, groups, union
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readxl)
## Warning: package 'readxl' was built under R version 4.3.3
sociogramaIndustrial <- read_excel("C:/Users/User/OneDrive/Escritorio/sociogramaIndustrial.xlsx")
View(sociogramaIndustrial)



responde <- sociogramaIndustrial$`Quien responde la encuesta.`
pareja <- sociogramaIndustrial$`¿Con quien de tus compañeros harias pareja para un trabajo en equipo?`
noPareja <- sociogramaIndustrial$`¿Con quien NO harias pareja para un trabajo en equipo?`
Intel <- sociogramaIndustrial$`Aparte de ti ¿A quien de tu salon consideras que es el mas inteligente?`
dataf <- data.frame(responde, pareja)
View(dataf)


dataf <- data.frame(responde, pareja)
View(dataf)


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.
plot.igraph(g,
            layout = layout.fruchterman.reingold,
            edge.curved = F, #Arista curva F/T
            edge.color = "black", #color de arista
            edge.width = .10,
            edge.length = 5,
            edge.arrow.size = 0.2,
            vertex.color = "lightblue",
            vertex.size = 15, #Ancho de Nodos
            vertex.label.color = "black",
            vertex.label.cex = 0.8,
            main = "Con quien haria equipo de trabajo",
            vertex.label.cex = 0.8)

¿Con quién NO harías pareja para un trabajo en equipo?

Esta pregunta constituye la contraparte de la anterior al centrarse en el rechazo. Al analizarla, podemos interpretar los datos y categorizarlos en diversas tipologías relevantes para este ámbito. Por ejemplo, observamos una clara elección mayoritaria por parte de los integrantes del grupo a favor de una persona, así como la manifestación singular del rechazo en un caso que se diferencia notablemente de los demás. En el análisis, podemos identificar los siguientes tipos de relaciones sociales, e interpretar las tipologías. Lider:para el puesto de lider la mayoria del grupo eligio a Ramon como a alguien con quien no quisieran hacer pareja para algun trabajo, esto, interpretandoce como un lider en cuestio de rechazo. El rechazado parcial: Este puesto le pertenece a Garay Yair, siendo rechazado para hacer pareja por varios de sus compañeros, pero no por mayoría. El aislado: se puede consideras que este puede pertenecer a Yair debido a que apenas recibe una eleccion

dataN <- data.frame(responde, noPareja)
View(dataN)

N = graph.data.frame(dataN, directed = T)

plot.igraph(N,
            layout = layout.fruchterman.reingold,
            edge.curved = F, #Arista curva F/T
            edge.color = "black", #color de arista
            edge.width = .10,
            edge.length = 5,
            edge.arrow.size = 0.2,
            vertex.color = "lightblue",
            vertex.size = 15, #Ancho de Nodos
            vertex.label.color = "black",
            main = "Con quien NO harias pareja de trabajo",
            vertex.label.cex = 0.8)

¿A quién de tu salón consideras que es el más inteligente?

Esta pregunta hace referencia a la admiración que puede tener un compañero a otro, de tal forma que se diferencia a las otras dos, y no presenta un dato negativo en referencia a los integrantes. Sin embargo, esta información nos permite inferir por qué las personas eligen a ciertos individuos como potenciales parejos. Al examinar el sociograma, se observa que aquellos que son percibidos como inteligentes son los más elegidos en la pregunta sobre aceptación de pareja. En el análisis, podemos identificar los siguientes tipos de relaciones sociales. El líder: La persona que se considera líder, siendo la mas seleccionada se refiere a Fabian, siendo seleccionado por la mayoría del grupo. Sin embargo, también en esta pregunta el grupo se encuentra dividido en subgrupos, siendo destacable, el diferente punto de vista de diferente persona acerca de sus compañeros. El marginado: podremos denominar como el marginado a Montelongo debido a que en la encuesta no es seleccionada por nadie, pero ella si selecciona a uno de sus compañeros, aun que tal vez guarde alguna reciprocidad con Giovanny pero por ahora se le considera como un individuo marginado ya que tal vez se deba a que Giovanni no contesto la encuesta.

dataI <- data.frame(responde, Intel)
View(dataI)

I = graph.data.frame(dataI, directed = T)

plot.igraph(I,
            layout = layout.fruchterman.reingold,
            edge.curved = F, #Arista curva F/T
            edge.color = "black", #color de arista
            edge.width = .10,
            edge.length = 5,
            edge.arrow.size = 0.2,
            vertex.color = "lightblue",
            vertex.size = 15, #Ancho de Nodos
            vertex.label.color = "black",
            main = "A quien considera el mas listo del salon",
            vertex.label.cex = 0.8)