gistfile1.r

ggplot(noah.most.frequent.phrase[noah.most.frequent.phrase$user %in% users[1:10],])+
  aes(x=day, y=bid, color=factor(user))+geom_jitter(alpha=0.9)

ggplot(noah[noah$user==users[1],])+
  aes(x=day, y=bid, color=phrase)+geom_jitter()

qplot(log(key.phrase.counts), geom="histogram")
ggplot(noah[noah$phrase==most.frequent.phrase,])+aes(x=user, y=bid, color=clicks.zero, shape=position.one)+geom_jitter(alpha=0.7, size=10, width=0.5, height=0)
ggplot(noah[noah$phrase==most.frequent.phrase,])+aes(x=day, y=bid, color=clicks.zero, shape=position.one)+geom_jitter(alpha=0.7, size=2, width=0.5, height=0)
ggplot(noah[noah$phrase==most.frequent.phrase,])+aes(x=bid, y=position)+geom_jitter(alpha=0.7, size=2)