analysis.py

import pymongo
from itertools import *
import matplotlib.pyplot as plt
import matplotlib
from numpy import *
import pylab as lab

#####################
from pymongo import Connection
connection = Connection()
db = connection.reddit

SUBREDDIT = 'frontpage'

if SUBREDDIT == 'travel':
	COLLECTION_NAME = 'travel'
	collection = db.travel
	START_TIME = 1352938569
elif SUBREDDIT == 'fitness':
	COLLECTION_NAME = 'fitness'
	collection = db.fitness
	START_TIME = 1352955347
elif SUBREDDIT == 'worldnews':
	COLLECTION_NAME = 'worldnews'
	collection = db.worldnews
	START_TIME = 0
elif SUBREDDIT == 'pics':
	COLLECTION_NAME = 'pics'
	collection = db.pics
	START_TIME = 0
elif SUBREDDIT == 'frontpage':
	COLLECTION_NAME = 'frontpage'
	collection = db.frontpage
	START_TIME = 0
#####################

parms = {'created_utc':{'$gte' : START_TIME}}
parms2 = {'created_utc':START_TIME}


def word_freq_distro(word_map):
	pts = []
	for word in word_map.most_common():
		pts.append(word[1])
	return pts

def title_length(good):
	points_ranks = []
	points_lengths = []
	for id in good:
		points_ranks.append( min(trajectory(id,False,False,'pos')) )
		points_lengths.append( len(collection.find_one(id)['title'])  )
	plt.scatter(points_ranks,points_lengths)
	plt.show()
	return {'ranks':points_ranks,'lengths':points_lengths }

def chunks():
	kincr = []
	pincr = []
	for doc in collection.find(parms):
		ktr = trajectory(doc['_id'],False,False,'karma')
		tr = trajectory(doc['_id'],False,False)
		for i in range(1,len(tr)):
			kincr.append(ktr[i] - ktr[i-1])
			pincr.append(tr[i] - tr[i-1])
	
	#log scaler
	nkincr = []
	for k in kincr:
		if k < 0: nkincr.append(-log(-k+1))
		elif k == 0: nkincr.append(0)
		elif k > 0 : nkincr.append(log(k+1))
	npincr = []
	for p in pincr:
		if p < 0: npincr.append(-log(-p+1))
		elif p == 0: npincr.append(0)
		elif p > 0 : npincr.append(log(p+1))
	plt.hexbin(npincr,nkincr,bins='log',mincnt=1)
	plt.colorbar()
	plt.title('Trajectory movement')
	plt.xlabel('log scaled change of position')
	plt.ylabel('log scaled change of karma')
	plt.show()
	#return (npincr,nkincr)
		
def cdfmod():
	pos = distro('pos',dataOnly=True)
	cpos = []
	for i in range(1,max(pos.keys())):
		val = 0
		for p in pos:
			if p <= i:
				val += len(pos[p])
		cpos.append(val)
	first = cpos[0]
	cpos = map(lambda x: first/float(x),cpos)
	return cpos
				
def karmaRank():
	karmas= []
	poss = []
	for doc in collection.find(parms):
		subparms  = {'_id':doc['_id']}
		karma = 0
		pos = 5000
		if 'var' in collection.find_one(subparms).keys():
			for item in collection.find_one(subparms)['var']:
				if item['data'] != '?' : 
					karma = max(karma,item['data']['up']-item['data']['down'])
					pos = min(pos,item['data']['pos'])
		if karma != 0 and pos != 5000:
			karmas.append(max(karma,1))
			poss.append(pos)
	plt.hexbin(log(poss),log(karmas),bins='log',mincnt=1)
	plt.title('Log(minimum position achieved) vs. Log(max karma achieved)')
	plt.xlabel('Position')
	plt.ylabel('Karma')
	plt.colorbar()
	plt.show()
	#return (karmas,poss)
				
def advancedTrajectoryReport(karma=False):
	if karma:
		intervals = [
			[1,25,'blue'],
			[26,100,'blue'],
			[100,500,'blue'],	
			[500,1000,'blue'],
			[1000,2000,'blue'],
			[2000,10000,'blue'],
		]
	else:
		intervals = [
			[1,100,'blue'],
			[100,200,'blue'],
			[200,300,'blue'],	
			[300,500,'blue'],
			[500,1000,'blue']
		]
	for type in ['rise','fall']:	#['rise','plateau','fall']
		c = 1
		plt.figure(figsize=(15,8))
		for i in intervals:				
			plt.subplot(230 + c)
			c += 1
			n = advancedTrajectories(i[0],i[1],i[2],type,karma)
			plt.title('Max Rank %s-%s (n = %s)' % (i[0],i[1],n))
		plt.suptitle('Normalized %s for %s' % (type,COLLECTION_NAME))
		plt.savefig('Normalized %s for %s.png' % (type,COLLECTION_NAME))
	
def advancedTrajectories(maxRank,minRank,color,type,karma=False):
	counter = 0
	for doc in collection.find(parms):
		if karma:
			tr = trajectory(doc['_id'],False,False,'karma')
		else:
			tr = trajectory(doc['_id'],False,False)
		if len(tr) >= 10 and max(tr) != min(tr): 
			if karma:
				min_val = max(tr)
			else:
				min_val = min(tr)
			if min_val >= maxRank and min_val <= minRank:
				if karma:
					trajectoryPlotNormalized(tr,type,color,True)
				else:
					trajectoryPlotNormalized(tr,type,color)
				counter += 1
	return counter

def basicTrajectoryReports():
	intervals = [
		(1,100),
		(100,200),
		(200,300),
		(300,500),
		(500,1000)
	]	
	for i in intervals:	trajectoryReportBasic(i[0],i[1])
		
def trajectoryReportBasic(maxRank,minRank):
	rises = []
	falls = []
	plats = []
	for doc in collection.find(parms):
		tr = trajectory(doc['_id'],False,False)
		if len(tr) >= 3: 
			data = trajectoryNormalizeTime(tr)
			min_val = min(tr)
			if min_val >= maxRank and min_val <= minRank:
				rises.append(data['rise']+1)
				falls.append(data['fall']+1)
				plats.append(data['plat']+1)
				
	rises = log(rises)
	falls = log(falls)
	plats = log(plats)
	
	plt.figure(figsize=(15,8))
	
	plt.subplot(231)
	plt.hist(rises)
	plt.title('log(rise)')
	
	plt.subplot(232)
	plt.hist(falls)
	plt.title('log(fall)')
	
	plt.subplot(233)
	plt.hist(plats)
	plt.title('log(plat)')
	
	plt.subplot(234)
	plt.hist2d(rises,falls)
	plt.xlabel('log(rise)')
	plt.ylabel('log(fall)')
	
	plt.subplot(235)
	plt.hist2d(falls,plats)
	plt.xlabel('log(fall)')
	plt.ylabel('log(plat)')
	
	plt.subplot(236)
	plt.hist2d(rises,plats)
	plt.xlabel('log(rise)')
	plt.ylabel('log(plat)')
	

	plt.suptitle('Peaks from %s-%s (n=%s) in %s' % (maxRank, minRank, len(rises), COLLECTION_NAME))
	lab.savefig("%s-%s (%s).png" % (maxRank, minRank, COLLECTION_NAME))

def trajectoryPlotNormalized(tr,type=None, c='blue',karma=False):
	if karma:
		x_values = trajectoryNormalizeRank(tr,True)
	else:
		x_values = trajectoryNormalizeRank(tr)
	x_values = map(lambda x: pow(x,5),x_values)
	plt.plot(trajectoryNormalizeTime(tr,karma)['t'],x_values,color=c,alpha=0.05)
	if type == 'rise': plt.gca().set_xlim([0,1])		
	elif type == 'plateau': plt.gca().set_xlim([1,2])
	elif type == 'fall': plt.gca().set_xlim([2,3])

	
def trajectoryNormalizeRank(tr,karma=False):
	min_value = min(tr)
	max_value = max(tr)
	new_tr = []
	if max_value == min_value:
		for i in tr: new_tr.append(0.5)
	else:
		for i in tr: 
			if karma:
				new_tr.append(1-((max_value - i)/float(max_value - min_value)))
			else:
				new_tr.append((max_value - i)/float(max_value - min_value))

	return new_tr

def trajectoryNormalizeTime(tr,karma=False):
	#indices
	if karma:
		min_value = max(tr)
	else:
		min_value = min(tr)
	min_index = 1000
	max_index = None
	for i in range(0,len(tr)): 
		if tr[i] == min_value: 
			max_index = max(i,max_index)
			min_index = min(i,min_index)
	times = []
	for i in range(0,len(tr)): 
		if i < min_index:
			value = 0 + i*(1/float(min_index))
		elif i == min_index:
			value = 1
		elif i > min_index and i < max_index:
			value = 1 + (i-min_index)*(1/float(max_index-min_index))
		elif i == max_index:
			value = 2
		else:
			value = 2 + (i-max_index)*(1/float(len(tr) - 1 - max_index))
		times.append(value)

	return {'t':times,'rise': min_index, 'fall': len(tr) - max_index, 'plat': max_index - min_index}
	
def getCollection():
	return collection

def subredditDistro():
	data = []
	for sub in collection.find():
		data.append(log(sub['data']['subscribers']+1)) #avoid zero errors
	plt.hist(data,log=True,histtype='step')
	plt.title('Subreddit log(size) vs. log(frequency)')
	plt.xlabel('Log(size)')
	plt.ylabel('Frequency')
	plt.show()

def upDownMatrix():
	ups = []
	downs =  [] 
	poss = []
	for doc in collection.find(parms):
		subparms  = {'_id':doc['_id']}
		up = 0
		down = 0
		pos = 5000
		for item in collection.find_one(subparms)['var']:
			if item['data'] != '?' : 
				up = max(up,item['data']['up'])
				down = max(down,item['data']['down']+1) #to make log stuff work
				pos = min(pos,item['data']['pos'])
		if up+down != 0:
			ups.append(up)
			downs.append(down)
			poss.append(min(pos,10))
			
	
	xmin = min(log(ups))
	xmax = max(log(ups))
	ymin = min(log(downs))
	ymax = max(log(downs))
	#poss = log(poss)
	
	#plt.hexbin(log(ups),log(downs), bins='log', cmap=plt.cm.YlOrRd_r)
	plt.scatter(log(ups),log(downs),c=poss,s=100)
	plt.axis([xmin, xmax, ymin, ymax])
	plt.gray()
	plt.colorbar()
	
	plt.show()

			
def distroReport():
	c = 1	
	for type in (('pos',None),('com','loglog'),('up','loglog'),('down','loglog')):
		plt.subplot(220 + c)
		distro(type[0],type[1],False)
		c += 1
	plt.show()
		
#options for type = up/down/com/pos
def distro(type,plot=None,show=True,dataOnly=False):	
	data = {}
	
	if type in ('up','down','com'):
		INITIAL = 0
		FUNC = 'max'
	else: #pos
		INITIAL = 5000
		FUNC = 'min'
		
	for doc in collection.find(parms):
		subparms  = {'_id':doc['_id']}
		s = INITIAL
		if 'var' in collection.find_one(subparms).keys():
			for item in collection.find_one(subparms)['var']:
				if item['data'] != '?' : 
					if FUNC == 'max':
						s = max(s,item['data'][type])
					else : #min or pos
						s = min(s,item['data'][type])
		if s != INITIAL:
			if s in data:
				data[s].append(doc['_id'])
			else:
				data[s] = [doc['_id']]
	
	if not dataOnly:
		if not plot:
			plt.plot(map(lambda x: len(data[x]),data))
		elif plot == 'loglog':
			plt.loglog(map(lambda x: len(data[x]),data))
	
		if type in ('up','pos'):
			plt.gca().set_xlim(left=1)
	
		plt.ylabel('number of posts')
		plt.xlabel('number of %s' % type)
		plt.title('Distribution of %s in %s' % (type, COLLECTION_NAME))
		
		if show : plt.show()
	
	return data

def completion_matrix(show=True):
	#Get the time points to be used
	m = collection.find_one(parms2,{'var.time'})['var']
	new_m = []
	for i in range(0,len(m)):
		if i % 10 == 0 :
			new_m.append(m[i])
	m = new_m
	
	counter = len(m)
	for pt in m:
		counter -= 1
		pos = []
		print counter
		for doc in collection.find(parms):
			for docpt in doc['var']:
				if docpt['time'] > (pt['time']-30) and docpt['time'] < (pt['time']+30):
					if docpt['data'] != '?' : 
						pos.append(docpt['data']['pos'])
						break;
		pt['pos'] = pos
	
	img = []
	for item in m:
		row = [0] * 100
		for p in item['pos']:
			if p <= 100 : row[p-1] = 1
		img.append(row)
	
	if show: 
		plt.imshow(img)
		plt.show()
	return m

def topTrajectories(type='line'):
    #######################
	r = [1,2,3,4,5,6]
	rows = 3
	columns = 2
	#######################
	
	c = 1
	ranks = distro('pos',show=False)
	for i in r:
		plt.subplot(rows*100 + columns*10 + c)
		c += 1
		if type == 'line':
			for tr in ranks[i]:
				trajectory(tr,False)
		elif type == 'box':
			topTrajectoriesPerGroup(ranks[i],False)

		plt.title('Max Rank = %s (n= %s)' % (i,len(ranks[i])))
		plt.ylim((1,20))
		plt.xlim((0,50))
	plt.show()

def topTrajectoriesPerGroup(ids,show=True):
	data = []
	for i in range(0,50): data.append([])
	
	for id in ids:
		query = {'_id':id}
		counter = 0
		for item in collection.find_one(query)['var']:	
			if counter == 50:
				break
			if item['data'] != '?':
				data[counter].append(item['data']['pos'])
			counter += 1
	plt.boxplot(data)
	if show:	plt.show()
	return data

def trajectory(id,show=True,plot=True,type='pos'):
	query = {'_id':id}
	pos = []
	if 'var' in collection.find_one(query).keys():
		for item in collection.find_one(query)['var']:
			if item['data'] != '?' : 
				if item['data']['pos'] < 900:
					if type =='pos':
						pos.append(item['data']['pos'])
					elif type == 'karma':
						pos.append(item['data']['up']-item['data']['down'])
	if plot:
		plt.plot(pos)
		plt.ylim((1,100))
		plt.xlim((0,50))
		if show: plt.show()
	return pos
	
if __name__ == '__main__':
    basicTrajectoryReports()		
		