Netsdaily Polarity Plot in R

netsdaily_polarity_plot

### Parsing Netsdaily for a Polarity Plot -- working with JSON

packages <-
	c('magrittr', 'dplyr', 'qdap', 'jsonlite', 'ggplot2')
lapply(packages, library, character.only = T)
url <-
	'http://www.netsdaily.com/comments/load_comments/8261850'

data <-
	url %>%
	fromJSON(simplifyDataFrame = T,flatten = T) %>%
	.[2] %>%
	data.frame %>%
	tbl_df
names(data) %<>% gsub('comments.','',.)
data %<>%
	mutate(title = title %>% tolower,
				 username = username %>% tolower) %>%
	select(title, username) %>%
	distinct

data %<>% qdap_df(text.var = 'title')
data %&%
	polarity(username) %>%
	scores %>%
	plot