if (FALSE) {
library(saotd)
data <- raw_tweets
tidy_data <- Tidy(DataFrame = data)
TD_Word_Corr <- word_corr(DataFrameTidy = tidy_data,
number = 500,
sort = TRUE)
TD_Word_Corr_Network <- word_corr_network(WordCorr = TD_Word_Corr,
Correlation = 0.15,
layout = "fr",
edge_color = "royalblue",
node_color = "black",
node_size = 2,
set_seed = 1234)
TD_Word_Corr_Network
}
Run the code above in your browser using DataLab