## Not run:
# # Loading sample data and retrieving mentions
# data(senate_tweets)
# mentions <- tw_extract(senate_tweets$text, obj="mention")$mention
#
# # Preparing data for size. Here we are just setting a random size for
# # each vertex.
# usrs<- tolower(senate_tweets$screen_name)
# size <- data.frame(name=unique(usrs),
# size=exp(runif(length(unique(usrs)))*5))
#
# # Creating the graph
# graph <- tw_network(
# usrs, mentions, min.interact = 5, size=size)
#
# # Visualizing the graph
# plot(graph)
# ## End(Not run)
Run the code above in your browser using DataLab