Återskapa diagrammet

Kategoriska data i Tidyverse

Emily Robinson

Data Scientist

Labs

ggplot(mtcars, aes(disp, mpg)) + geom_point() + 
  labs(x = "x axis label", y = "y axis label", title = "My title", 
       subtitle = "and a subtitle", caption = "even a caption!")

Ett spridningsdiagram med titeln "My title", undertiteln "and a subtitle", y-axeletikett "y axis label", x-axeletikett "x axis label" och bildtext "even a caption!"

Ett stapeldiagram med x-axeln "mean mpg" och y-axeln "carb".

Geom_text

initial_plot + geom_text(aes(label = round(mean_mpg)))

Samma stapeldiagram men med medel-mpg-värdet överlappar toppen av varje stapel.

Flytta text

initial_plot + 
  geom_text(aes(label = round(mean_mpg), y = mean_mpg + 2))

Samma diagram som tidigare men nu visas texten ovanför varje stapel.

Theme

initial_plot + 
  geom_text(aes(label = round(mean_mpg), y = mean_mpg + 2)) + 
  theme(axis.text.x = element_blank(), axis.ticks.x = element_blank())

Samma diagram som tidigare men utan x-axeletikett eller skalstreck.

Nu kör vi en övning!

Kategoriska data i Tidyverse