Skip to content

Instantly share code, notes, and snippets.

@johnjosephhorton

johnjosephhorton/mturk_distro.R

Created November 17, 2010 16:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save johnjosephhorton/703555 to your computer and use it in GitHub Desktop.
Save johnjosephhorton/703555 to your computer and use it in GitHub Desktop.
Download ZIP
Code for plotting distribution of HITs/worker on MTurk
Raw
mturk_distro.R
library(ggplot2)
library(reldist)
data <- read.csv("User_3144_workers.csv")
u = dim(data)[1]
png("mturk_distro.png")
qplot(Number.of.HITs.approved.or.rejected, data = data) + scale_x_log2() +
xlab("Number of HITs Approved or Rejected \n (John Horton's Account)") +
ylab("Count of MTurk Workers") +
opts(title="Distribution of HITs/Worker (log scale) \n from my Amazon Mechanical Turk Account") + geom_text(aes(x=5.4, y=4000, label=c("Unique workers: 9,119"))) +
geom_text(aes(x=4, y=3500, label=c("Total HITs: 62,703")))
dev.off()
gini(data$Number.of.HITs.approved.or.rejected)
max(data$Number.of.HITs.approved.or.rejected)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment