Star Trek Stats

I grabbed some Star Trek data from, http://www.thestartrekproject.net/ , and started making some graphs in R. Here are deaths, in shirt color:



Here are kills by Species:



It does not surprise me at all that humans are the most violent. As a white male, I know my race is the most prolific in violence.

Here's an interesting one. It shows Total Death's per victim...You'll notice Worf at 4 and Picard at 3...what do you want from me, it's Star Trek.

Here is the R, to make the above chart:

library(readxl)
library(ggplot2)
stardeath <- read_xls(path = '~/Downloads/all-deaths.xls')
char <- data.frame()
species <- unique(stardeath$Victim)
for(i in species){
  new <-data.frame(amount = length(which(stardeath$Victim == i)), 'species' = i)
  char <- rbind(char,new)
}
#We only want species with greater than 2 deaths
morethanone <- char[which(char$amount > 2),]
ggplot(morethanone, aes(species, amount)) +geom_bar(stat = 'identity', aes(fill = species))+ theme(axis.text.x = element_text(angle = 60, hjust = 1)) + labs(y = "Total Deaths",x = "Victim")

Also you should tottally get the DS9 DVDs, cause DS9 was the best.