gravatar

inma_ggp

Inmaculada Gutiérrez García-Pardo

Recently Published

Large Language Models vs. Human Coders in Political Communication Research
HTML
Para comunicar
HTML
Comunidades + intensidad
Cada color una comunidad (en función de las aristas=RTs) Cada opacidad de color, una intensidad, cuanto más cercano a 0 en la escala (más neutralidad), más claro el nodo
Opción 5
visNetwork(nodesW, edgesW, width="100%", height = "500px") %>% visOptions(highlightNearest = TRUE, # nodesIdSelection =c(useLabels=T)) %>% selectedBy="group") %>% visPhysics(solver = "forceAtlas2Based", repulsion = NULL, hierarchicalRepulsion = NULL, stabilization = NULL, barnesHut=-90000, adaptiveTimestep = NULL)%>% visIgraphLayout(randomSeed=12351,physics = T, smooth = F) %>% visInteraction(navigationButtons = TRUE, dragNodes = FALSE, dragView = FALSE, zoomView = FALSE) %>% visNodes(color = list(border=colors()[cdp$x], background=colors()[cdp$x]))
Opción 4
visNetwork(nodesW, edgesW, width="100%", height = "500px") %>% visOptions(highlightNearest = TRUE, # nodesIdSelection =c(useLabels=T)) %>% selectedBy="group") %>% visPhysics(solver = "forceAtlas2Based", repulsion = NULL, hierarchicalRepulsion = NULL, stabilization = NULL, barnesHut=-90000, adaptiveTimestep = NULL)%>% visIgraphLayout(randomSeed=-15793,physics = T, smooth = F) %>% visInteraction(navigationButtons = TRUE, dragNodes = FALSE, dragView = FALSE, zoomView = FALSE) %>% visNodes(color = list(border=colors()[cdp$x], background=colors()[cdp$x]))
Opción 3
visNetwork(nodesW, edgesW, width="100%", height = "500px") %>% visOptions(highlightNearest = TRUE, # nodesIdSelection =c(useLabels=T)) %>% selectedBy="group") %>% visPhysics(solver = "forceAtlas2Based", repulsion = NULL, hierarchicalRepulsion = NULL, stabilization = NULL, barnesHut=-90000, adaptiveTimestep = NULL)%>% visIgraphLayout(randomSeed=-1359,physics = T, smooth = F) %>% visInteraction(navigationButtons = TRUE, dragNodes = FALSE, dragView = FALSE, zoomView = FALSE) %>% visNodes(color = list(border=colors()[cdp$x], background=colors()[cdp$x]))
Opción 2
visNetwork(nodesW, edgesW, width="100%", height = "500px") %>% visOptions(highlightNearest = TRUE, # nodesIdSelection =c(useLabels=T)) %>% selectedBy="group") %>% visPhysics(solver = "forceAtlas2Based", repulsion = NULL, hierarchicalRepulsion = NULL, stabilization = NULL, barnesHut=-50000, adaptiveTimestep = NULL)%>% visIgraphLayout(randomSeed=-15979,physics = T, smooth = F) %>% visInteraction(navigationButtons = TRUE, dragNodes = FALSE, dragView = FALSE, zoomView = FALSE) %>% visNodes(color = list(border=colors()[cdp$x], background=colors()[cdp$x]))
Opción 1
visNetwork(nodesW, edgesW, width="100%", height = "500px") %>% visOptions(highlightNearest = TRUE, # nodesIdSelection =c(useLabels=T)) %>% selectedBy="group") %>% visPhysics(solver = "forceAtlas2Based", repulsion = NULL, hierarchicalRepulsion = NULL, stabilization = NULL, barnesHut=-50000, adaptiveTimestep = NULL)%>% visIgraphLayout(randomSeed=-15971,physics = T, smooth = F) %>% visInteraction(navigationButtons = TRUE, dragNodes = FALSE, dragView = FALSE, zoomView = FALSE) %>% visNodes(color = list(border=colors()[cdp$x], background=colors()[cdp$x]))
Comunidades ley trans con filtro
Ley Trans
Por colores, las comunidades relativas a las aristas Por grupos, los que tienen escala similar
CDP en la componente conexa débil
Louvain Algorithm
Weak Componente
En esta imagen se presenta la componente weak del grafo, que será la base del análisis de comunidades posterior.
Componentes Conexas
Red completa
En este grafo tenemos la red completa, con 1308 usuarios en total. Hay usuarios que: - Sólo escriben un tweet. - Sólo son mencionados por alguno de los usuarios que escriben un tweet. - Escriben un tweet y son mencionados