Takipçilere Göre Ağ yapısı

library(igraph)
library(visNetwork)
library(readxl)
library(dplyr)
library(ggplot2)
library(plotly)

options(scipen = TRUE)

twitterdata <- read.csv("C:/Users/Tolga/Desktop/YTU/sosyalag/network.csv")
twitterdata <- twitterdata[,-1]

Takipçilere Göre Ağ yapısı

nodes <- data.frame(id=unique(twitterdata$from),label=unique(twitterdata$from))
edges <- twitterdata%>%select(from,to)

visNetwork(nodes, edges)%>%
  visNodes(
    font = list(size = 30),
    shape = "dot",
    color = list(
      background = "#0085AF",
      border = "#013848"
    )
  ) %>% 
  visOptions(
    highlightNearest = TRUE,
    autoResize = FALSE,
    nodesIdSelection = TRUE
  )%>%
  visEdges(
    shadow = FALSE,
    color = list(color = "#0085AF")
  ) %>%
  visLayout(randomSeed = 10)%>%
  visInteraction(
    hover = TRUE,
    hoverConnectedEdges = FALSE,
    selectConnectedEdges = FALSE,
    multiselect = FALSE,
    dragNodes = TRUE,
    dragView = TRUE,
    zoomView = TRUE,
    navigationButtons = FALSE,
    selectable = TRUE
  )

Aşağıdaki ortak arkadaşlar tarafından takip ediliyoruz. Evet tarafından :)

data.frame(twitterdata%>%
  group_by(from)%>%
  summarise(n=n())%>%
  arrange(desc(n))%>%
  filter(n < 30 & n > 1))

## `summarise()` ungrouping output (override with `.groups` argument)

##               from n
## 1      Begumdizmen 2
## 2       ddilasahin 2
## 3        edabuyuuk 2
## 4  esmathechipmunk 2
## 5    karagozseherr 2
## 6          parim10 2
## 7        senasnckl 2
## 8          sineays 2
## 9       tahamert28 2
## 10    ytukampuscom 2
## 11 zeynepnurergull 2