Znovuvytvoření grafu

Kategorická data v 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!")

Bodový graf s názvem "My title", podtitulem "and a subtitle", popiskem osy y "y axis label", popiskem osy x "x axis label" a poznámkou "even a caption!"

Sloupcový graf s osou x "mean mpg" a osou y "carb".

Geom_text

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

Stejný sloupcový graf, ale s hodnotou průměrného mpg překrývající vrchol každého sloupce.

Přesun textu

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

Stejný graf jako předtím, ale text je nyní nad každým sloupcem.

Motiv (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())

Stejný graf jako předtím, ale bez popisku osy x a rysky.

Pojďme si procvičit!

Kategorická data v Tidyverse