GOT exercise

Three different kinds of headers possible.(YAML header 1,2,3). might be necessary to install tinytext

#GOT Screentimes Analysis of screentime of characters in HBO series GOT

#dies hier macht, dass es den unten stehenden Code anzeigt, aber nicht den output (also library installed etc.)
#|  message: false

library("readr")
library("ggplot2")
library("dplyr")
library("ggrepel")

#this reads the Gare of thrones 
screentimes <- read_csv("data/GOT_screentimes_1.csv")

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)

#quarto render got2.qmd
#better use
#quarto preview got2.qmd