+ - 0:00:00
Notes for current slide
Notes for next slide

Data Visualization

Chapter 3. Data Visualization in R

Iñaki Úcar

Department of Statistics | uc3m-Santander Big Data Institute

Master in Computational Social Science

Licensed under Creative Commons Attribution CC BY 4.0 Last generated: 2023-01-25

1 / 13

Directory of Visualizations

Based on The R Graph Gallery

2 / 13

Ranking

< Contents

Barplot Spider/radar Wordcloud Parallel Lollipop Circular barplot


  • Visualization of the ranking of a categorical variable
  • Based on some other numerical variable
  • Sort your data!
3 / 13

Ranking Barplot

< Contents

ggplot(mpg) +
  aes(class) +
  geom_bar() +
  labs(x=NULL)

4 / 13

Ranking Barplot

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, class) +
  geom_col() +
  labs(y=NULL)

5 / 13

Ranking Barplot

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  geom_col() +
  labs(y=NULL)

6 / 13

Ranking Barplot

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  geom_col(aes(fill=drv)) +
  labs(y=NULL) +
  theme(legend.position="top")

7 / 13

Ranking Circular Barplot

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  geom_col(aes(fill=drv)) +
  coord_polar(theta="y") +
  labs(y=NULL) +
  theme(legend.position="top")

8 / 13

Ranking Lollipop

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  geom_segment(aes(xend=0, yend=class)) +
  geom_point(size=3) +
  labs(y=NULL)

9 / 13

Ranking Lollipop

< Contents

mpg |>
  count(drv, class, name="count") |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  aes(color=drv) +
  geom_segment(aes(xend=0, yend=class)) +
  geom_point(size=3) +
  labs(y=NULL) +
  theme(legend.position=c(1, 0),
        legend.justification=c(1, 0))

10 / 13

Ranking Lollipop

< Contents

mpg |>
  count(drv, class, name="count") |>
  group_by(class) |>
  summarise(xmin = min(count),
            count = max(count)) |>
ggplot() +
  aes(count, reorder(class, count, sum)) +
  geom_segment(aes(xend=xmin, yend=class)) +
  geom_point(size=3) +
  geom_point(aes(xmin), size=3) +
  labs(y=NULL) +
  expand_limits(x=0)

11 / 13

Ranking Parallel

< Contents

iris |>
  tibble::rowid_to_column("id") |>
  gather("key", "value", -Species, -id) |>
ggplot() +
  aes(key, value, color=Species) +
  geom_point(alpha=0.5) +
  geom_line(aes(group=id), alpha=0.3) +
  scale_color_viridis_d() +
  labs(x=NULL) +
  theme(legend.position="top")

12 / 13

Ranking Parallel

< Contents

iris |>
  tibble::rowid_to_column("id") |>
  gather("key", "value", -Species, -id) |>
  group_by(key) |>
  mutate(value = scale(value)) |>
ggplot() +
  aes(key, value, color=Species) +
  geom_point(alpha=0.5) +
  geom_line(aes(group=id), alpha=0.3) +
  scale_color_viridis_d() +
  labs(x=NULL, y="Std. value") +
  theme(legend.position="top")

13 / 13

Directory of Visualizations

Based on The R Graph Gallery

2 / 13
Paused

Help

Keyboard shortcuts

↑, ←, Pg Up, k Go to previous slide
↓, →, Pg Dn, Space, j Go to next slide
Home Go to first slide
End Go to last slide
Number + Return Go to specific slide
b / m / f Toggle blackout / mirrored / fullscreen mode
c Clone slideshow
p Toggle presenter mode
t Restart the presentation timer
?, h Toggle this help
sToggle scribble toolbox
Esc Back to slideshow