Code for quiz 9
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
year
activity
to the x-axis and will show activity by year
e_timeline_opts
to set autoPlay to TRUEe_bar
to represent the variable avg_hours
with a bar charte_title
to set the main title to ‘Average hours Americans spend per day on each activity’e_legend
Create a line chart for the activities that Americans spend time on.
Start with spend_time
mutate
to convert year
from a number to a string (year-month-day) using mutate
year
to a string “201X-12-31” using the function paste
paste
will paste each year to 12 and 31 THENmutate
to convert year from a character object to a date object using the ymd
function from the lubridate
package. ymd
converts dates stored as characters to date objects.group_by
the variable activity
e_charts
object with year
on the x-axise_line
to add a line to the variable avg_hours
e_tooltip
e_title
to set the main title to ‘Average hours Americans spend per day on each activity’e_legend(top = 40)
to move the legend downspend_time
data
year
to the x-axisavg_hours
to the y-axisactivity
to colorgeom_point
geom_mark_ellipse
ggplot(spend_time, aes(x = year, y = avg_hours, color = activity)) +
geom_point() +
geom_mark_ellipse(aes(filter = activity == "leisure/sports", description = "Americans spend on average more time each day on leisure/sports than the other activities"))
Retrieve stock price for Amazon, ticker AMZN using tq_get
df
df <- tq_get("AMZN", get = "stock.prices", from = "2019-08-01", to = "2020-07-28" )
create a plot with the df
data
date
to the x-axisclose
to the y-axisgeom_line
geom_mark_ellipse
geom_mark_ellipse
close
price. Include the date in your Rmd code chunk.labs
title
to Amazonggplot(df, aes(x = date, y = close)) +
geom_line() +
geom_mark_ellipse(aes(filter = date == "2020-06-15", description = "steadier incline"), fill = "yellow") +
geom_mark_ellipse(aes(filter = date == "2020-03-16", description = "minimum"), fill = "red") +
labs(title = "Amazon",
x = NULL,
y = "closing price per share",
caption = "Source: https://en.wikipedia.org/wiki/Timeline_of_the_COVID-19_pandemic_in_the_United_States")
ggsave(filename= "preview.png",
path = here::here("_posts", "2021-04-20-data-visualization"))