11_exercise_timeseries.Rmd

---
title: "Exercise: Simple Interactivity"
subtitle:  "ggplotly & Time Series"
output: html_document
---

In this exercise the starter code to generate a simple time series plot is provided.  Your task is to make the basic static plot an interactive plot.  Execute the following code.  Fill in the code for the final code chunk below.

## Library Packages

```{r}
library(tidyverse)
library(plotly)
```

## Data

```{r}
duke_ncaa_forcast <-
  read_csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/historical-ncaa-forecasts/historical-538-ncaa-tournament-model-results.csv", 
    col_types = cols(year = col_date(format = "%Y"), favorite_win_flag = col_logical())) %>% 
  filter(favorite == "Duke", round < 3)

duke_ncaa_forcast
```

## ggplot2  

```{r}
duke_2ndround_win_probability <- 
ggplot(duke_ncaa_forcast, aes(x = year, y = favorite_probability)) +
  geom_point(aes(color = favorite_win_flag, 
                 shape = favorite_win_flag), size = 4) +
  geom_line() 

duke_2ndround_win_probability
```

## Plotly via ggplotly

In the code chunk, below, make the above plot a plotly plot

```{r}

```