Marcin 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)

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;
	; 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:

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;
	; 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:

	# 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)

	#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")