library(tidyverse)
library(echarts4r)
library(ggforce) #install  before using for the first time
library(hrbrthemes)
theme_set(theme_ipsum()) # set all of the plot themes

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 contains 10 years of data on how many hours Americans spend each day on 5 activities

read it into spend_time

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

e_charts-1

Start with spend_time

THEN group_by year THEN create an e_chart that assigns activity to the x-axis and will show activity by year (the variable that you grouped the data on) THEN use e_timeline_opts to set autoPlay to TRUE THEN use e_bar to represent the variable avg_hours with a bar chart THEN use e_title to set the main title to ‘Average hours Americans spend per day on each activity’ THEN remove the legend with e_legend

# spend_time  %>% 
#   group_by(year)  %>% 
#   e_charts(x =activity , timeline = year) e_timeline_opts
#   e_timeline_opts(autoPlay = TRUE)  %>% 
#   e_bar(serie = avg_hours)  %>% 
#   e_title(text ='Average hours Americans spend per day on each activity')  %>% 
#   e_legend(show = legend )

Question: E:charts-2

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

question modify slide 82

ggplot(spend_time, aes(x = year, y = avg_hours , color = activity)) +
geom_point() +
geom_mark_ellipse(aes(filter = activity == "leisure/sports",
 e_title= "Americans spend on average more time each day on leisure/sports than the other activities"))

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

Data Visualization