Drawing from one of the most important demographic laws, Valar Morghulis (all men must die), here is a simple summary of the deadly happenings in four seasons of GOT as reported by the Washington Post.

Let’s start by the total number of (portrayed) deaths by season:

df1 ggplot(df1,aes(x=factor(Series),y=Total))+

geom_bar(stat="identity",fill=c("yellow","orange","red","brown"))+

xlab("Season number")+

ylab("Total number of deaths")

ggplot(df1,aes(x=Series,y=Total))+

geom_line(lwd=2)+

xlab("Season number")+

ylab("Total number of deaths")

by location in Westeros:

df2 Location=c("King's Landing","Beyond the Wall","Castle Black","The Twins","The Riverlands")

ggplot(df2,aes(x=factor(Location),y=Deaths))+

geom_bar(stat="identity",fill=c("lightblue","black","brown","darkseagreen","red"))+

ylab("Total number of deaths")+

xlab("")+

theme(axis.text=element_text(size=15))



by method of death:

df3 Method=c("Animal","Animal Death","Arrows","Axe","Blade","Bludgeon","Crushing","Falling","Fire","Hands","HH item","Mace","Magic","Other","Poison","Spear","Unknown")

df3.1 df3.2 ggplot(df3.2,aes(x=factor(Method),y=value,fill=variable))+

geom_bar(stat="identity")+

ylab("")+

xlab("")+

theme(axis.text.x=element_text(size=15,angle=45))+

scale_fill_discrete(name ="Method of Death", labels=c("Season 1", "Season 2", "Season 3", "Season 4"))



and lastly by House allegiance:

df4 House df4.1 df4.2 ggplot(df4.2,aes(x=reorder(factor(House),value),y=value,fill=variable))+

geom_bar(stat="identity")+

ylab("")+

xlab("")+

theme(axis.text.x=element_text(size=15,color="black"),

axis.text.y=element_text(size=15,color="black"))+

scale_fill_discrete(name ="House Allegiance", labels=c("Season 1", "Season 2", "Season 3", "Season 4"))+

coord_flip()