Networkx, Graph, Network Analysis, Twitter, Ml So Good.
json1<-lapply(readLines(“election-filter-6.json”), fromJSON) id<-list() for(i in 1:length(json1)){ id[i]<-json1[[i]]$id } user_screen<-list() for(i in 1:length(json1)){ user_screen[i]<-json1[[i]]$user$screen_name } original_author<-list() for(i in 1:length(json1)){