-
Notifications
You must be signed in to change notification settings - Fork 0
/
code.Rmd
64 lines (51 loc) · 1.84 KB
/
code.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
---
title: "Tidytuesday 10/11/2020"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
Load libraries.
```{r}
library(tidyverse)
library(mdthemes)
library(ggtext)
windowsFonts("Bahnschrift" = windowsFont("Bahnschrift"))
```
Load data.
```{r}
mobile <- readr::read_csv('https://raw.github.com/rfordatascience/tidytuesday/master/data/2020/2020-11-10/mobile.csv')
landline <- readr::read_csv('https://raw.github.com/rfordatascience/tidytuesday/master/data/2020/2020-11-10/landline.csv')
```
Join both datasets.
```{r}
data <- inner_join(mobile, select(landline, code, year, landline_subs), by = c("code", "year")) %>%
mutate(year = as.character(year))
```
Visualize with ggplot2.
```{r}
plot <- data %>%
group_by(continent, year) %>%
summarise(mobile = mean(mobile_subs, na.rm = T),
landline = mean(landline_subs, na.rm = T)) %>%
ggplot() +
geom_line(aes(year, landline, group = continent), color = "red", size = .8) +
geom_line(aes(year, mobile, group = continent), color = "blue", size = .8) +
scale_x_discrete(breaks = seq(1990, 2017, 9)) +
facet_wrap(~ continent, scales = "free_x") +
xlab(NULL) +
ylab(NULL) +
labs(title = "<b>Number of <span style='color:red'>landline</span> and <span style='color:blue'>mobile</span> subscriptions per 100 (1990-2017)",
subtitle = "Mobile phone subscriptions shoot up worldwide since the end of '90s",
caption = "Source: Pew Research Smartphone Adoption | @jantleon") +
theme_minimal(base_family = "Bahnschrift") +
theme(legend.position = "none",
plot.title = element_markdown(hjust = 0.5),
plot.subtitle = element_text(hjust = 0.5),
panel.spacing.x = unit(6, "mm"))
plot
```
Save the plot.
```{r}
ggsave("plot.png", plot, width = 6, height = 4)
```