Note the use of the p_load() function from the pacman package!

Q1

Load the gapminder dataset into your R environment and take a look at it. Note the location of different variables and include a summary of the average and maximum GDP by continent.

gapminder <- gapminder

mean_gdp <- gapminder %>%
  group_by(continent) %>%
  summarise_at(vars(gdpPercap), list(mean_gpd = mean))
mean_gdp
## # A tibble: 5 × 2
##   continent mean_gpd
##   <fct>        <dbl>
## 1 Africa       2194.
## 2 Americas     7136.
## 3 Asia         7902.
## 4 Europe      14469.
## 5 Oceania     18622.
max_gdp <- gapminder %>%
  group_by(continent) %>%
  summarise_at(vars(gdpPercap), list(max_gpd = max))
max_gdp
## # A tibble: 5 × 2
##   continent max_gpd
##   <fct>       <dbl>
## 1 Africa     21951.
## 2 Americas   42952.
## 3 Asia      113523.
## 4 Europe     49357.
## 5 Oceania    34435.

Q2

Using plotly, create a static bubble chart of the gapminder data. Map GDP to the x axis, life expectancy to the Y axis, and population to the size of the bubbles. Each bubble’s color should be based on the region of that nation. Hint: If size is not working properly for you, you may want to use: marker = list(sizemode = "diameter"))

#Uncomment and modify the line below this one to create your plot!
static_plot <- plot_ly(gapminder, x = ~gdpPercap, y = ~lifeExp, type = 'scatter', mode = 'markers', color = ~continent, size = ~pop,
        marker = list(sizemode = "diameter", opacity = 0.5))
static_plot
## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

Note here that the plot looks pretty messy because all the years are present on the plot. It would be nice to see the dots by country one year at a time, right?

Q3

Create a new plotly object that is similar to the previous one, but includes animation. This is as easy as adding frame to your plot_ly command and specifying the varable that should determine the frame.

animated_plot <-  plot_ly(gapminder, x = ~gdpPercap, y = ~lifeExp, type = 'scatter', mode = 'markers', color = ~continent, size = ~pop, frame = ~continent, marker = list(sizemode = "diameter", opacity = 0.5))
animated_plot
## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

Q4

Try adding a few options to alter your animation lightly. As long as you’ve created your plot correctly, all you need to do here is uncomment the code, run the chunk, and explain what each part did.

animated_chart <- animated_plot %>% 
  animation_opts(frame = 100, 
                 redraw = TRUE, 
                 easing = "linear")
animated_chart
## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

redraw = every frame is a total plot redraw easing =

Q5

Now, let’s add a button to pause the animation. You should spend a bit of time looking at this code and understanding what it does, then try to move the button to a place that makes more sense.

 interactive_chart <- animated_chart %>% layout(
   updatemenus = list(
     list(
       type = "buttons",
       showactive = FALSE,
       x = 1.2,  
       y = -0.3,  
       buttons = list(
         list(
           label = "Pause",
           method = "animate",
           args = list(NULL, list(frame = list(duration = 0, 
                                               redraw = TRUE), 
                                  mode = "immediate"))
         )
       )
     )
   )
 )
 interactive_chart
## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

Q6

Add a title, axis labels, any other important annotations to the plot. This could include adding hover text or other elements.

interactive_chart <- interactive_chart %>% 
  layout(title = "Life Expectancy vs GDP per Capita by Contient",
         showlegend=TRUE,
         xaxis=list(title="GDP per Capita"),
         yaxis=list(title="Life Expectancy"))
interactive_chart
## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

Q7

Practice publishing your final plot to Rpubs (or another location of your choice) and include the link in your submission.