library(DiagrammeR)
set.seed(23)

library(rvest)
h = html("https://twitter.com/teramonagi/lists/list/members")
L = h %>% html_nodes(xpath="//*/div/div/div/a/strong") %>% html_text()

n = create_nodes(nodes = L)
e = create_edges(from = sample(L, replace = TRUE),
               to = sample(L, replace = TRUE))
g =
  create_graph(nodes_df = n,
               edges_df = e,
               graph_attrs = "layout = twopi",
               node_attrs = c("fontname = Helvetica"))

render_graph(g)