Anaysis of GOT Data

How is screen time and number of episodes correlated? Which character appear how often and in how many episodes

The data comes from [this beautiful website] (www.got.org)

#| message: false #| warning: false #| echo: false

Import all relevant library

library(“readr”) library(“ggplot2”) library(“dplyr”) library(“ggrepel”)

Import the csv with the GOT data (source?)

screentimes <- read_csv(“data/GOT_screentimes_1.csv”)

#Select top character in regard to screentime screentimes_high <- top_n(screentimes, 10, screentime)

#display screentime vs number of episodes using dots and add names od characters ggplot(screentimes, aes(screentime, episodes)) + geom_point() + geom_text_repel(data = screentimes_high,aes(label = name),min.segment.length = 0)