Owen Jones owenjonesuob

## nye_trends.R
library(gtrendsR)

nye <- gtrends("new years eve", time = "now 7-d")$interest_over_time
hanging <- gtrends("hangover", time = "now 7-d")$interest_over_time


library(ggplot2)

ggplot(data.frame(time = nye$date,
                  "new years eve" = nye$hits,

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                owenjonesuob
                / keybase.md
            
            
              Last active
              February 2, 2018 16:14
            
              
                keybase.md
              
          
    Keybase proof

I hereby claim:

I am owenjonesuob on github.
I am owenjonesuob (https://keybase.io/owenjonesuob) on keybase.
I have a public key ASBxM05QKnWekCiebCnqr6retyFa0XR_NUUpogevjcKZJAo

To claim this, I am signing this object:
	library(gtrendsR)

	nye <- gtrends("new years eve", time = "now 7-d")$interest_over_time
	hanging <- gtrends("hangover", time = "now 7-d")$interest_over_time


	library(ggplot2)

	ggplot(data.frame(time = nye$date,
	"new years eve" = nye$hits,