Takip Ettiklerimize 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 Ettiklerimize Göre Ağ yapısı

nodes <- data.frame(id=unique(twitterdata$to),label=unique(twitterdata$to))
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 hesapları takip ediyoruz

data.frame(twitterdata%>%
  group_by(to)%>%
  summarise(n=n())%>%
  arrange(desc(n))%>%
  filter(n < 19 & n > 2))

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

##                 to n
## 1      eskitvitler 5
## 2   ekrem_imamoglu 4
## 3      Overlokcu12 4
## 4   TuhafAmaGercek 4
## 5        vekilince 4
## 6        YildizEdu 4
## 7  YTU_istatistik_ 4
## 8       140journos 3
## 9   bilio_muydunuz 3
## 10       cemseymen 3
## 11          CMYLMZ 3
## 12     dayagiyedin 3
## 13  deeplearningtr 3
## 14  degirmencirfan 3
## 15 drfahrettinkoca 3
## 16   efsanemagazin 3
## 17   fatihportakal 3
## 18   GalatasaraySK 3
## 19    gormen_lazim 3
## 20     haluklevent 3
## 21        incicaps 3
## 22 istatistikofisi 3
## 23     kaacyiloldu 3
## 24    mahfiegilmez 3
## 25   mansuryavas06 3
## 26 mimarioncesonra 3
## 27 nocontextsextng 3
## 28       OdunHerif 3
## 29       RessamBob 3
## 30   YildizzTilbee 3
## 31    ytukampuscom 3
## 32        ziyaturp 3