Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(ggplot2)
- library(tidyverse)
- since2k <- read.csv(PathToCSVFile, header = T)
- # Format the date column
- since2k$Date <- strptime(since2k$Date, format = "%b %d %Y")
- # Format Date
- since2k$Date <- as.POSIXct(since2k$Date)
- yearSeq <- seq(1970,2018,1)
- yearsSumm <-
- tibble(year = numeric(), gdpAvg = numeric())
- for (year in 1:length(yearSeq)) {
- yearString <- paste0(yearSeq[year],"-01-01")
- dt <- as.POSIXct(yearString,tz="EST")
- reducedData <-
- since2k %>%
- filter(Date > dt)
- yearsSumm <-
- yearsSumm %>%
- add_row(year = yearSeq[year], gdpAvg = mean(reducedData$Value))
- }
- yearsSumm <-
- yearsSumm %>%
- mutate(since2008 = ifelse(year == 2008, TRUE, FALSE))
- ggplot(yearsSumm) +
- geom_point(aes(x=year,y=gdpAvg, colour = since2008)) +
- geom_hline(yintercept = mean(yearsSumm$gdpAvg), linetype=4) +
- guides(colour = F) +
- labs(x="Year",
- y="Average Yearly GDP")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement