In knapply/tweetgraph: Tweet Graph Structures for Network Analysis

knitr::opts_chunk$set(
  # collapse = TRUE,
  fig.align = "center",
  comment = "#>",
  fig.path = "man/figures/",
  message = FALSE,
  warning = FALSE
)

# options(width = 400)

{tweetgraph}

Installation

# install.packages("remotes")
remotes::install_github("knapply/tweetgraph")

Usage

library(tweetgraph)

hashtag_rstats <- rtweet::search_tweets("#rstats")

Social Network Analysis

as_sna_primitive()

sna_data <- as_sna_primitive(hashtag_rstats)

lapply(sna_data, names)

Using {igraph}

as_sna_igraph(hashtag_rstats)
as_sna_igraph(sna_data)

sna_data %>% 
  as_sna_igraph() %>% 
  plot_vis_net()

Using {network}

as_sna_network(hashtag_rstats)
as_sna_network(sna_data)

Write Gephi-Friendly .graphml Files

target_file_path <- "~/gephi-tweets.graphml"

tweet_graph <- as_sna_igraph(hashtag_rstats)

write_graphml(g = tweet_graph, path = target_file_path)

Opening with Gephi

1.

knitr::include_graphics("gephi-open.PNG")

2.

knitr::include_graphics("gephi-open-2.PNG")

3.

knitr::include_graphics("gephi-open-3.PNG")

4.

knitr::include_graphics("gephi-open-4.PNG")

knitr::include_graphics("gephi-open-5.PNG")

Knowledge Graph

as_kg_primitive()

kg_data <- as_kg_primitive(hashtag_rstats)

lapply(kg_data, names)

Using {igraph}

as_kg_igraph(hashtag_rstats)
as_kg_igraph(kg_data)

kg_data %>% 
  as_kg_igraph() %>% 
  plot_vis_net()

Using {network}

as_kg_network(hashtag_rstats)
as_kg_network(kg_data)

knapply/tweetgraph documentation built on Nov. 4, 2019, 3:54 p.m.