Jason Voorhees Kills Per Movie

On Screen Deaths of Unfortunate Characters in Friday the 13<sup>th</sup> Films

As an 80s horror film junkie, I wanted to know how Jason Voorhees's slasher tendency has changed over time. So I went through IMDB and found the reported deaths done by both Jason and secondary characters. I then compiled the data into a single .csv file, shown below:

dat

##                                                name part kills jasonkills
## 1                            Friday the 13th (1980)    1    10          0
## 2                           Friday the 13th Part II    2     8          8
## 3                          Friday the 13th Part III    3    10         10
## 4                Friday the 13th: The Final Chapter    4    13         13
## 5                  Friday the 13th: A New Beginning    5    19          0
## 6              Jason Lives: Friday the 13th Part VI    6    17         17
## 7           Friday the 13th Part VII: The New Blood    7    15         15
## 8  Friday the 13th Part VIII: Jason Takes Manhattan    8    19         17
## 9              Jason Goes to Hell: The Final Friday    9    26         23
## 10                                          Jason X   10    26         24
## 11                           Friday the 13th (2009)   11    12         12
##                                                   movie
## 1                               Friday the 13th\n(1980)
## 2                              Friday the 13th\nPart II
## 3                             Friday the 13th\nPart III
## 4                   Friday the 13th:\nThe Final Chapter
## 5                     Friday the 13th:\nA New Beginning
## 6                Jason Lives:\nFriday the 13th\nPart VI
## 7            Friday the 13th\n Part VII:\nThe New Blood
## 8  Friday the 13th\n Parv VIII:\nJason Takes\nManhattan
## 9                  Jason Goes to Hell\nThe Final Friday
## 10                                              Jason X
## 11                              Friday the 13th\n(2009)

To find out how many people Jason himself killed, it was a simple process of summation using sum(dat$jasonkills) to reveal: 

sum(dat$jasonkills)

## [1] 139

This compares with the total number of kills reaching 

sum(dat$kills)

## [1] 175

Next, I simply renamed the movies using the '\n' spacer so the titles would be readable. Then, using the melt function of the reshape2 package, I consolidated the data into something easily plotable: 

head(m)

##                                   name part
## 1               Friday the 13th (1980)    1
## 2              Friday the 13th Part II    2
## 3             Friday the 13th Part III    3
## 4   Friday the 13th: The Final Chapter    4
## 5     Friday the 13th: A New Beginning    5
## 6 Jason Lives: Friday the 13th Part VI    6
##                                    movie variable value
## 1                Friday the 13th\n(1980)    kills    10
## 2               Friday the 13th\nPart II    kills     8
## 3              Friday the 13th\nPart III    kills    10
## 4    Friday the 13th:\nThe Final Chapter    kills    13
## 5      Friday the 13th:\nA New Beginning    kills    19
## 6 Jason Lives:\nFriday the 13th\nPart VI    kills    17

Therefore there were 36 deaths in the Friday the 13th franchise not cauused by Jason.

Finally, some quick plotting in ggplot2 produced the following: 

require(ggplot2)

## Loading required package: ggplot2

ggplot(m, aes(x=part, y=value, color=variable, shape=variable, fill=variable)) +
  geom_bar(stat='identity', position=position_dodge(), color='black') +
  geom_point(size=8) + geom_line() +
  nolines_tilt(12) +
  scale_x_continuous(labels=m$movie, breaks=m$part, name="") +
  ylab("On-Screen Deaths") +
  scale_y_continuous(breaks=seq(0,30,5)) +
  scale_color_manual(name="On-Screen Deaths",
                     values=c("black", "red"),
                     labels=c("Total Deaths", "Jason Kills")) +
  scale_shape_manual(name="On-Screen Deaths",
                     values=c(1, 4),
                     labels=c("Total Deaths", "Jason Kills")) +
  scale_fill_manual(name="On-Screen Deaths",
                    values=c('grey', 'red4'),
                    labels=c('Total Deaths', 'Jason Kills'))

## Loading required package: grid

Popular posts from this blog

Setup RStudio Server on Windows with a Virtual machine

Image
Introduction You may be asking yourself: why would I want to setup RStudio Server on Windows? I already have RStudio, what would be the benefit of running RStudio Server in a Linux Virtual Machine (VM) on my Windows machine be? Here are a few reasons: Multiple RStudio sessions running simultaneously Development for deployment on a Shiny Server Test package development independently of OS For the purposes of this tutorial, we're going to use VirtualBox , however any virtualization product will work, and we'll be installing Ubuntu Server 18.04 LTS , although your preferred Linux distro is also acceptable.  Steps Figure 1. Fresh VirtualBox Manager GUI. The red arrow indicates where to click to setup a new VM. Go ahead and start downloading your distro as it may take a few minutes. Download and install VirtualBox. Hopefully your Linux distro has finished downloading, as installation of VirtualBox may interrupt network connectivity. Go ahead and start Virtu...
Read more
Image
Mitch Hedberg Mitch Hedberg would be the king of twitter if he was alive today. To honor him, I've decided to analyze some of his top jokes. This will be done using R's text mining package, tm , as well as SnowballC , wordcloud , and viridis . To start, I scraped this BuzzFeed article to compile a .csv of the jokes. Mitch Hedberg's six shortest jokes consisted of 8, 9, 10, and 11 words, and are written below. Dogs are forever in the pushup position. A severed foot is the ultimate stocking stuffer. I remixed the remix… it was back to normal. A burrito is a sleeping bag for ground beef! I tried to walk into Target… but I missed. I drank some boiling water… because I wanted to whistle. In contrast, Mitch's six longest jokes surprisingly consisted of 141, 131, 109, 103, 96, and 92 words. You know when you go to a restaurant on the weekends, it’s busy, so they start a waiting list? They start calling out names, they say Dufrane, party of two. Table ready fo...
Read more

Tufte and Few and the Human Connection

Edward Tufte and Stephen Few are frequently mentioned together. Several blog posts have talked about their similarities and even compared Tufte to God and Few to Moses, as Jorge Camoes did  here . Tufte would have preferred a simplistic bar plot, and may have enjoyed the first graph aesthetically. Few would have thought the colors and the lines were too distracting, and that the data would be better presented in a table. Both these ideologies leave out the full human condition, although Tufte breaches it by appealing aesthetically, not just the merger of functionality and minimalism, but by creating it a thing of beauty it can be more appreciated. However, if you add to the data the ability to interact with it, you can begin to connect more on a personal level with the data and you form a type of bond with it. Enter  Shiny R . Shiny R is a terrific way to embed interaction with your data. If you followed my previous post, you'll notice I promised a link to my shiny app...
Read more