8: Data Visualization

Code for quiz 9

  1. Load the R package we will use.
library(tidyverse)
library(echarts4r)
library(ggforce) #install  before using for the first time
library(tidyquant)  #install  before using for the first time
library(hrbrthemes)
theme_set(theme_ipsum()) # set all of the plot themes 
  1. Quiz questions

Question: e_charts-1

Create a bar chart that shows the average hours Americans spend on five activities by year. Use the timeline argument to create an animation that will animate through the years.

spend_time  <- read_csv("https://estanny.com/static/week8/spend_time.csv")

e_charts-1

Start with spend_time

???  %>% 
  group_by(???)  %>% 
  e_charts(x =??? , timeline = ???) ???
  ???(autoPlay = TRUE)  %>% 
  e_bar(serie = ???)  %>% 
  ???(text ='Average hours Americans spend per day on each activity')  %>% 
  e_legend(show = ??? )  

Question: echarts-2

Create a line chart for the activities that American spend time on.

Start with spend_time

???  %>%
  mutate(year = paste(year, "12","31", sep = "-"))  %>% 
  ???(year = lubridate::ymd(year))  %>% 
  ???(???)  %>%
  ???(x  = year)  %>% 
  e_line(serie = ???)  %>% 
  ???()  %>% 
  ???(text = 'Average hours Americans spend per day on each activity')  %>% 
  e_legend(top = 40) 

Question - modify slide 82

ggplot(???, aes(x = ???, y = ??? , ??? = activity)) +
???() +
???(aes(??? = activity == "leisure/sports",
 ???= "Americans spend on average more time each day on leisure/sports than the other activities"))

Question: tidyquant

Modify the tidyquant example in the video

Retrieve stock price for SEE QUIZ, ticker: SEE QUIZ, using tq_get

df  <- ???("???", get = "stock.prices", 
          ??? = "2019-08-01", ??? = "2020-07-28" )

Create a plot with the df data

ggplot(df, aes(x = ???, y = ???)) +
  ???() +
  ???(aes(
    filter = date == "PICK A DATE",
    description = "REPLACE WITH A DESCRIPTION"
  ), ???= "yellow") +
  geom_mark_ellipse(aes(
   ???  = date == "PICK A DATE",
    description = "REPLACE WITH A DESCRIPTION"
  ), ??? = "red", ) +
  labs(
    title = "???",
    x = NULL,
    y = "Closing price per share",
    ??? = "Source: https://en.wikipedia.org/wiki/Timeline_of_the_COVID-19_pandemic_in_the_United_States"
  )

Save the previous plot to preview.png and add to the yaml chunk at the top

ggsave(filename = "preview.png", 
       path = here::here("_posts", "2021-03-13-data-visualization"))