This repository has been archived by the owner. It is now read-only.
R package to search for keyword frequencies in news articles via newsfreq.com
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
R
README_cache/markdown_github
README_files/figure-markdown_github
man
tests
.Rbuildignore
.gitignore
.travis.yml
DESCRIPTION
LICENSE
NAMESPACE
README.Rmd
README.md
newsfreq.Rproj

README.md

newsfreq is a package that provides access to the newsfreq.com API, which enables searching media sources for keywords in news articles.

The following functions are implemented:

  • news_search - search for articles
  • autoplot.newsfreq - ggplot2 convenience method

The following data sets are included:

News

  • Version 0.1 released
  • Version 0.2 released - added a pct column to the returned data frame (under certain conditions); made an S3 newsfreq class for the results; added an autoplot convenience method for generating quick graphs of results.

Installation

devtools::install_github("hrbrmstr/newsfreq")

Usage

library(newsfreq)

# current verison
packageVersion("newsfreq")
## [1] '0.2'
library(newsfreq)
library(ggplot2)
library(scales)
library(dplyr)
## 
## Attaching package: 'dplyr'
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyr)
library(ggthemes)
breach <- news_search(keywords="(data breach) OR hacking OR (denial of service)",
                      date_from="2010-01-01", date_to="2014-12-31")
head(breach)
##    date_from    date_to year month_abb month count search_date                                    search_terms
## 1 2010-01-01 2010-01-31 2010       Jan    01  3197  2015-02-02 (data breach) OR hacking OR (denial of service)
## 2 2010-02-01 2010-02-28 2010       Feb    02  3140  2015-02-02 (data breach) OR hacking OR (denial of service)
## 3 2010-03-01 2010-03-31 2010       Mar    03  3721  2015-02-02 (data breach) OR hacking OR (denial of service)
## 4 2010-04-01 2010-04-30 2010       Apr    04  3732  2015-02-02 (data breach) OR hacking OR (denial of service)
## 5 2010-05-01 2010-05-31 2010       May    05  3307  2015-02-02 (data breach) OR hacking OR (denial of service)
## 6 2010-06-01 2010-06-30 2010       Jun    06  2964  2015-02-02 (data breach) OR hacking OR (denial of service)
##          pct
## 1 0.08149791
## 2 0.08004487
## 3 0.09485572
## 4 0.09513613
## 5 0.08430203
## 6 0.07555827
breach %>%
  mutate(search_terms="breach/hack/dos") -> breach

terrorism <- news_search(keywords="terrorism",
                   date_from="2010-01-01", date_to="2014-12-31")

warming <- news_search(keywords="global warming",
                   date_from="2010-01-01", date_to="2014-12-31")

bitcoin <- news_search(keywords="bitcoin",
                       date_from="2010-01-01", date_to="2014-12-31")

bind_rows(breach, terrorism, warming, bitcoin) %>%
  select(date_from, search_terms, count) -> combined
gg <- ggplot(combined, aes(x=date_from, y=count, group=search_terms))
gg <- gg + geom_line(aes(color=search_terms))
gg <- gg + geom_point(aes(color=search_terms), size=1.5)
gg <- gg + scale_x_date(breaks=date_breaks("year"),
                        labels=date_format("%Y"), expand=c(0,0))
gg <- gg + scale_y_continuous(label=comma)
gg <- gg + scale_color_tableau(name="Topic")
gg <- gg + labs(x=NULL, y="# Articles", title="Keyword frequency since 2010")
gg <- gg + theme_bw()
gg <- gg + theme(panel.grid=element_blank())
gg <- gg + theme(panel.border=element_blank())
gg

Test Results

library(newsfreq)
library(testthat)

date()
## [1] "Mon Feb  2 06:46:05 2015"
test_dir("tests/")
## basic functionality :