Data visualization, part 1. Code for Quiz 7.
faithful
datasetgeom_point
eruptions
to the x-axiswaiting
to the y-axis -color the points according to whether waiting
is smaller or greater than 76ggplot(faithful) +
geom_point(aes(x = eruptions, y = waiting,
colour = waiting > 76))
faithful
datasetgeom_point
eruptions
to the x-axiswaiting
to the y-axisggplot(faithful) +
geom_point(aes(x = eruptions, y = waiting),
colour = "blueviolet ")
faithful
datasetgeom_histogram()
to plot the distribution of waiting
timewaiting
to the x-axisggplot(faithful) +
geom_histogram(aes(x = waiting))
See how shapes and sizes of points can be specified here: https://ggplot2.tidyverse.org/articles/ggplot2-specs.html#sec:shape-spec
Create a plot with the faithful
dataset
add points with geom_point
assign the variable eruptions
to the x-axis
assign the variable waiting
to the y-axis
set the shape of the points to cross
set the point size to 7
set the point transparency 0.6
ggplot(faithful) +
geom_point(aes(x = eruptions, y = waiting),
shape = "cross", size = 7, alpha =0.6)
faithful
datasetgeom_histogram()
to plot the distribution of the eruptions
(time)eruptions
are greater than or less than 3.2 minutesggplot(faithful) +
geom_histogram(aes(x = eruptions, fill = eruptions > 3.2 ))
mpg
datasetgeom_bar()
to create a bar chart of the variable manufacturer
ggplot(mpg) +
geom_bar(aes(x = manufacturer))
manufacturer
instead of classmpg_counted <- mpg %>%
count(manufacturer, name = 'count')
ggplot(mpg_counted) +
geom_bar(aes(x = manufacturer, y = count), stat = 'identity')
manufacturer
as a percent of totalclass
to manufacturer
ggplot(mpg) +
geom_bar(aes(x = manufacturer, y = after_stat(100 * count / sum(count))))
for reference see: https://ggplot2.tidyverse.org/reference/stat_summary.html?q=stat%20_%20summary#examples
Use stat_summary()
to add a dot at the median of each group
color the dot purple3
make the shape of the dot diamond
make the dot size 4
ggplot(mpg) +
geom_jitter(aes(x = class, y = hwy), width = 0.2) +
stat_summary(aes(x = class, y = hwy), geom = "point",
fun = "median", color = "purple3",
shape = "diamond", size = 4 )
ggsave(filename = "preview.png",
path = here::here("_posts", "2021-03-08-exploratory-analysis"))