]> projects.mako.cc - selectricity/blob - app/controllers/graph_controller.rb
Added functional tests for the graph controller -- assert that valid images return...
[selectricity] / app / controllers / graph_controller.rb
1 require 'date'
2 class GraphController < ApplicationController  
3   class GruffGraff
4   
5     def initialize(options)
6       size = "700x400"
7       @graph = options[:graph_type].new(size)
8
9       @graph.theme = { :colors => ['#000000', '#00FFFF', '#FFCC00', '#990033'],
10                        :background_colors => ['#74ce00', '#ffffff'] }
11       @graph.font = File.expand_path('/usr/X11R6/lib/X11/fonts/TTF/Vera.ttf',
12                                    RAILS_ROOT)
13       
14       # fill in the data with the optional data name
15       #Check to see if multiple datasets, if so, fill them all!
16       #Sort by biggest first piece of data.
17       if options[:data].is_a?(Hash) 
18         options[:data].sort {|a,b| b[1][0] <=> a[1][0]}.each do |dataset|
19           @graph.data(dataset[0], dataset[1])
20         end
21       #if each dataset nameless, will have only multiple arrays    
22       elsif options[:data].size > 1 && options[:data].all?  {|i| i.is_a?(Array)}
23         options[:data].each do |array|
24           @graph.data( options.fetch(:data_name, "Data"), array)
25         end
26       else #one dimensional array, just pass it in
27       @graph.data( options.fetch(:data_name, "Data"), options[:data] )
28       end
29       
30       # set the labels or create an empty hash
31       @graph.labels = options[:interval_labels] \
32         if options.has_key?(:interval_labels) and \
33            options[:interval_labels].class == Hash
34       @graph.x_axis_label = options[:x_axis_label] \
35         if options.has_key?(:x_axis_label)
36       @graph.y_axis_label = options[:y_axis_label] \
37         if options.has_key?(:y_axis_label)
38       @graph.title = options[:title] if options.has_key?(:title)
39       
40       @graph.minimum_value = 0.0
41
42     end
43
44     def output
45       return([@graph.to_blob, {:disposition => 'inline', :type => 'image/png'}])
46     end
47
48   end
49
50   # produce a graph of votes per day during an election
51   def votes_per_day
52     @election = Election.find(params[:id])
53     data, labels = get_votes_per_day_data(@election)
54     
55     graph = GruffGraff.new( :graph_type => Gruff::Line,
56                             :data_name => @election.name,
57                             :data => data,
58                             :interval_labels => labels,
59                             :title => "Voters Per Day",
60                             :x_axis_label => "Data",
61                             :y_axis_label =>"Number of Votes")
62     send_data(*graph.output)
63   end
64   
65   #will place votes in a fixed number of intervals, and shows votes over time
66   def votes_per_interval
67     @election = Election.find(params[:id])
68     data, labels, scale = get_votes_per_interval_data(@election)
69     
70     graph = GruffGraff.new( :graph_type => Gruff::Line,
71                             :data_name => @election.name,
72                             :data => data,
73                             :interval_labels => labels,
74                             :title => "Voters Over Time",
75                             :x_axis_label => scale,
76                             :y_axis_label => "Number of Votes")
77     send_data(*graph.output)
78   end
79   
80   def borda_bar
81     @election = Election.find(params[:id])
82     @election.results unless @election.borda_result
83     data, labels = get_borda_points(@election.borda_result)
84     
85     graph = GruffGraff.new( :graph_type => Gruff::Bar,
86                             :data_name => @election.name,
87                             :data => data,
88                             :interval_labels => labels,
89                             :title => "Points Per Candidate",
90                             :y_axis_label => "Points",
91                             :x_axis_label => "Candidate")
92     send_data(*graph.output)
93   end
94   #Acording to Tufte, small, concomparitive, highly labeled data sets usually
95   #belong in tables. The following is a bar graph...but would it be better
96   #as a table?
97   def choices_positions
98     @election = Election.find(params[:id])
99     legend = Hash.new   
100     alldata, labels = get_positions_info(@election)    
101     @election.results unless @election.condorcet_result || @election.ssd_result
102     
103     names = Hash.new
104     candidates = @election.candidates.sort.collect {|candidate| candidate.id}
105     candidates.each do |candidate|
106       names[candidate]= (Candidate.find(candidate)).name
107     end
108     
109     ranked_candidates = @election.condorcet_result.ranked_candidates.flatten
110     ranked_candidates.each_with_index \
111     {|candidate, index| legend[names[candidate]] = alldata[index]}
112     
113     graph = GruffGraff.new( :graph_type => Gruff::Bar,
114                             :data => legend,
115                             :interval_labels => labels,
116                             :title => "Times Voted in Each Position",
117                             :y_axis_label => "Number of Times Ranked",
118                             :x_axis_label => "Rank")
119     send_data(*graph.output) 
120   end
121   
122  private 
123   def get_positions_info(election)
124     buckets = Hash.new
125     buckets2= Hash.new
126     rank_labels = Hash.new
127     
128     #attach the ranking to the candidate's array to which is belongs
129     #creating a key if necessary
130     election.votes.each do |vote|
131       vote.rankings.each do |ranking|
132         
133          unless buckets.has_key?(ranking.candidate_id)
134            buckets[ranking.candidate_id] = []
135          end
136         buckets[ranking.candidate_id] << ranking.rank
137         
138       end
139     end
140     
141     #count how many times each candidate has been ranked at a certain level
142     buckets.each_pair do |id, array|
143       (1..election.candidates.size).each do |i|
144         buckets2[id] = [] unless buckets2.has_key?(id)
145         buckets2[id] << (array.find_all {|rank| rank == i}).size
146       end
147     end
148     
149     #sort by amount of 1st place votes
150     sorted_data = buckets2.values.sort {|a,b| b[0] <=> a[0]}
151     
152     election.votes.each do |vote|
153       vote.rankings.size.times do |i|
154         rank_labels[i] = (i+1).to_s
155       end
156     end
157     
158     return sorted_data, rank_labels   
159   end
160    
161   # generate the data and labels for each graph
162   def get_votes_per_day_data(election)
163     voter_days = Array.new
164     unique_days = Array.new
165     total_per_day = Array.new
166     election_days = Hash.new
167     
168     #turn election startdate into date object, and create the range of election
169     startdate = Date.parse(election.startdate.to_s)
170     election_range = startdate..Date.today
171     
172     # create a hash with all the dates of the election in String format
173     # referenced by their order in the election
174     election_range.each_with_index do |day, index|
175       election_days[index] = day.to_s
176     end
177     
178     # Now I need to create an array with all the times votes were made
179     election.votes.each do |vote|
180       next unless vote.time
181       voter_days << Date.parse(vote.time.to_s)
182     end
183     voter_days.sort!
184     
185     # Now I need to count how many times each each date appears in voter_days,
186     # and put that number into a votes_per_day array, the 'data' for the graph    
187     #Create an array of unique days from voter_days
188     voter_days.each do |day|
189       unless unique_days.any? {|date| date.eql?(day)}
190         unique_days << day
191       end
192     end
193     unique_days.sort!
194     
195     #find all dates where those days = date at current index, put size of returned
196     #array into total_per_day
197     unique_days.each_with_index do |date, index|
198       total_per_day << (voter_days.select {|day| day.eql?(date)}).size
199     end    
200
201     # return the data and the labels
202     return total_per_day, election_days
203    
204   end
205   
206   def get_votes_per_interval_data(election)
207     labels_hash = Hash.new
208     buckets = Hash.new
209     total_per_interval = Array.new
210     interval_type = ""
211     
212     starttime = election.startdate
213     timedelta = Time.now - starttime
214     numcols = 10
215     interval_length = timedelta/numcols
216     
217     # Make a hash, buckets, indexed by time intervals and containing empty arrays
218     # The time object must come first in addition! 
219     # i would start at 0, i+1 goes from 1 up till numcols
220     numcols.times {|i| buckets[starttime + ((i+1)*interval_length)] = []}
221      
222     # Put votes into bucket according to the time interval to which they belong,
223     # referenced by their key
224     # Will build a graph over time, as each successive interval will have more
225     # vote objects  
226     election.votes.each do |vote|
227       next unless vote.time
228       buckets.keys.sort.each do |inter|
229         if vote.time < inter
230           buckets[inter] << vote
231         end
232       end
233     end
234   
235     total_per_interval = buckets.keys.sort.collect {|key| buckets[key].size}
236     
237     # Create the hash for the labels. Each graph has ten columns, and three
238     # will be labeled
239     if timedelta < 2.hours #under two hours use minutes for labels
240       labels_hash[0] = starttime.min.to_s
241       labels_hash[(numcols/2)-1] = (starttime + (timedelta/2)).min.to_s
242       labels_hash[numcols-1] = Time.now.min.to_s
243       interval_type = "Minute of the Hour"
244     elsif timedelta < 2.days #more than 2 hours means use hours for labels
245       labels_hash[0] = starttime.hour.to_s
246       labels_hash[(numcols/2)-1] = (starttime + (timedelta/2)).hour.to_s
247       labels_hash[numcols-1] = Time.now.hour.to_s
248       interval_type = "Hour of the Day on 24 hour scale"
249     else #more than 2 days means use dates for labels
250       labels_hash[0] = (Date.parse(starttime.to_s)).to_s
251       labels_hash[(numcols/2)-1] = (Date.parse((starttime + (timedelta/2)).to_s)).to_s
252       labels_hash[numcols-1] = (Date.today).to_s
253       interval_type = "The Date"
254     end
255     
256     # Make sure to return an array for data and hash for labels
257     return total_per_interval, labels_hash, interval_type   
258   end
259   
260   def get_borda_points(result)
261     points = Array.new
262     labels = Hash.new
263
264     #Populate points with an sorted array from election.votes hash
265     #biggest to smallest will go from left to right
266     points = result.points.sort do |a, b|
267       b[1] <=> a[1]
268     end.collect {|i| i[1]}
269
270     #make the labels  
271     result.ranked_candidates.each_with_index do |candidate, index|
272       labels[index] = Candidate.find(candidate).name
273     end
274
275     return points, labels
276   end
277
278   #most vote result objects require an array of vote arrays, which this will make
279   def make_preference_tally(election)
280     preference_tally = Array.new
281     @election.voters.each do |voter|
282       next unless voter.voted?
283       preference_tally << voter.vote.rankings.sort.collect \
284         { |ranking| ranking.candidate.id }
285     end
286   return preference_tally
287   end
288
289 end

Benjamin Mako Hill || Want to submit a patch?