Sunday, June 4, 2017

Star Trek Stats

I grabbed some Star Trek data from, , 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:
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.

No comments: