mkulakowski2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
; Opinion Lexicon: Negative
;
; This file contains a list of NEGATIVE opinion words (or sentiment words).
;
; This file and the papers can all be downloaded from 
;    http://www.cs.uic.edu/~liub/FBS/sentiment-analysis.html
;
; If you use this list, please cite one of the following two papers:

mkulakowski2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
; Opinion Lexicon: Positive
;
; This file contains a list of POSITIVE opinion words (or sentiment words).
;
; This file and the papers can all be downloaded from 
;    http://www.cs.uic.edu/~liub/FBS/sentiment-analysis.html
;
; If you use this list, please cite one of the following two papers:

mkulakowski2

mkulakowski2

# load twitter library
library(twitteR)

# search for all the hilton tweets
hilton.tweets=searchTwitter('@hilton',n=1500)

length(hilton.tweets)
class(hilton.tweets)
tweet=hilton.tweets[[1]]
class(tweet)

mkulakowski2

library("ggplot2")

crime <- read.csv("/Users/marcin/R/crime/crime.csv", header=TRUE)

mayors <- read.csv("/Users/marcin/R/crime/mayors.csv", header=TRUE)


(crimeplot <- qplot(Year, Murder, data=crime, geom="line",xlab = "", ylab = "No. Murders"))

crimeplot + geom_vline(aes(xintercept = start), data = mayors)

mkulakowski2

mkulakowski2

#ggplot is an implementation of the grammar of graphics in R
library("ggplot2")

#Load the data into F1_POS dataframe
F1_POS <- read.csv("E:/R/f1/F1_POS.csv")

#The drivers are ordered by points, and the Salary variable converted to a factor for sorting.
F1_POS$Driver <- with(F1_POS, reorder(Driver, Salary))

library("reshape2")

mkulakowski2