library("readr")
library("ggplot2")
library("dplyr")
library("ggrepel")
library("knitr")Analysis of GOT Series
Abstract
Let’s analyse some data from GOT. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet, also see Knuth (1984).
Introduction
Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Find some coats of arms of GOT in Figure 1:
Analysis
Preparation
Before starting the analysis, load the following libraries.
Also load the necessary data.
screentimes <- read_csv("GOT_screentimes_1.csv")Perform analysis
Choose the 10 characters with the most screentime.
screentimes_high <- top_n(screentimes, 10, screentime)
knitr::kable(screentimes_high [, c("name", "screentime", "episodes")])| name | screentime | episodes |
|---|---|---|
| Tyrion Lannister | 293.30 | 54 |
| Jon Snow | 268.15 | 49 |
| Daenerys Targaryen | 221.30 | 49 |
| Cersei Lannister | 201.45 | 52 |
| Sansa Stark | 199.30 | 47 |
| Arya Stark | 189.15 | 47 |
| Jaime Lannister | 162.30 | 43 |
| Theon Greyjoy | 123.30 | 39 |
| Samwell Tarly | 121.45 | 37 |
| Jorah Mormont | 117.30 | 42 |
Now make a scatterplot of all data.
ggplot(screentimes, aes(screentime, episodes)) +
geom_point() +
geom_text_repel(data = screentimes_high,aes(label = name),min.segment.length = 0)Conclusion
The analysis has shown the following: Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum (as can be seen in Section 1). Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet (see Figure 2).