Introduction

We did some analysis on Game of Thrones (GOT) characters screen time compared to the amount of episodes they were in. See Figure 1 for an amazing plot. See Figure 3 (a) for an illustration of a banner, in Section 4.

Code

Load the libraries

library("readr")

Warning: Paket 'readr' wurde unter R Version 4.5.2 erstellt

library("ggplot2")

Warning: Paket 'ggplot2' wurde unter R Version 4.5.2 erstellt

library("dplyr")


Attache Paket: 'dplyr'

Die folgenden Objekte sind maskiert von 'package:stats':

    filter, lag

Die folgenden Objekte sind maskiert von 'package:base':

    intersect, setdiff, setequal, union

library("ggrepel")

Warning: Paket 'ggrepel' wurde unter R Version 4.5.3 erstellt

Create Scatterplot

screentimes <- read_csv("GOT_screentimes_1.csv")

Rows: 191 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (4): name, imdb_url, portrayed_by_name, portrayed_by_imdb_url
dbl (2): screentime, episodes

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

screentimes_high <- top_n(screentimes, 10, screentime)

ggplot(screentimes, aes(screentime, episodes)) +
  geom_point() +
  geom_text_repel(data = screentimes_high,aes(label = name),min.segment.length = 0)

Warning: Removed 15 rows containing missing values or values outside the scale range
(`geom_point()`).

Figure 1: Scatterplot of Game of Thrones

Quarto Advanced Exercise 1

See above for Exercise 2 and 3.

Quarto Advanced Exercise 4

See Figure 3 for four relevant banners. In particular, Figure 3 (b)