X-Git-Url: https://projects.mako.cc/source/selectricity/blobdiff_plain/45d47676ca3cc1c19b457f83a9482ba8b906f829..1fcd2d064dfef0dff9b07a40d0f5d30e662d1d86:/app/controllers/graph_controller.rb diff --git a/app/controllers/graph_controller.rb b/app/controllers/graph_controller.rb index 17e1578..69577c6 100644 --- a/app/controllers/graph_controller.rb +++ b/app/controllers/graph_controller.rb @@ -1,19 +1,32 @@ require 'date' -class GraphController < ApplicationController - +class GraphController < ApplicationController class GruffGraff def initialize(options) size = "700x400" @graph = options[:graph_type].new(size) - @graph.theme = { :background_colors => ['#73BF26', '#ffffff'] } + @graph.theme = { :colors => ['#000000', '#00FFFF', '#FFCC00', '#990033'], + :background_colors => ['#74ce00', '#ffffff'] } @graph.font = File.expand_path('/usr/X11R6/lib/X11/fonts/TTF/Vera.ttf', RAILS_ROOT) # fill in the data with the optional data name + #Check to see if multiple datasets, if so, fill them all! + #Sort by biggest first piece of data. + if options[:data].is_a?(Hash) + options[:data].sort {|a,b| b[1][0] <=> a[1][0]}.each do |dataset| + @graph.data(dataset[0], dataset[1]) + end + #if each dataset nameless, will have only multiple arrays + elsif options[:data].size > 1 && options[:data].all? {|i| i.is_a?(Array)} + options[:data].each do |array| + @graph.data( options.fetch(:data_name, "Data"), array) + end + else #one dimensional array, just pass it in @graph.data( options.fetch(:data_name, "Data"), options[:data] ) - + end + # set the labels or create an empty hash @graph.labels = options[:interval_labels] \ if options.has_key?(:interval_labels) and \ @@ -63,13 +76,11 @@ class GraphController < ApplicationController :y_axis_label => "Number of Votes") send_data(*graph.output) end - + def borda_bar @election = Election.find(params[:id]) - pref_tally = make_preference_tally(@election) - - @borda_result = BordaVote.new(pref_tally).result - data, labels = get_borda_points(@borda_result) + @election.results unless @election.borda_result + data, labels = get_borda_points(@election.borda_result) graph = GruffGraff.new( :graph_type => Gruff::Bar, :data_name => @election.name, @@ -80,69 +91,89 @@ class GraphController < ApplicationController :x_axis_label => "Candidate") send_data(*graph.output) end - + #Acording to Tufte, small, concomparitive, highly labeled data sets usually + #belong in tables. The following is a bar graph...but would it be better + #as a table? def choices_positions @election = Election.find(params[:id]) - pref_tally = make_preference_tally(@election) + legend = Hash.new + alldata, labels = get_positions_info(@election) + @election.results unless @election.condorcet_result || @election.ssd_result + ranked_candidates = @election.condorcet_result.ranked_candidates.flatten - fulldata = get_positions_info(@election) - (0...@election.candidates.size).each do |i| - sbar.data("Candidate#{i+1}", fulldata[i]) + names = Hash.new + candidates = @election.candidates.sort.collect {|candidate| candidate.id} + candidates.each do |candidate| + names[candidate]= (Candidate.find(candidate)).name end - sbar = Gruff::Bar.new - sbar.title = "Times Voted in Each Position" - #sbar.theme = { :background_colors => ['#73BF26', '#ffffff'] } - sbar.font = File.expand_path('/usr/X11R6/lib/X11/fonts/TTF/Vera.ttf', - RAILS_ROOT) + ranked_candidates.each_with_index \ + {|candidate, index| legend[names[candidate]] = alldata[index]} graph = GruffGraff.new( :graph_type => Gruff::Bar, - :data_name => @election.name, - :data => data, + :data => legend, :interval_labels => labels, - :title => "Times Candidate Was Voted Each Position", - :x_axis_label => "Rank", - :y_axis_label => "Number of Times") - - - + :title => "Times Voted in Each Position", + :y_axis_label => "Number of Times Ranked", + :x_axis_label => "Rank") + send_data(*graph.output) + end + + def plurality_pie + @election = Election.find(params[:id]) + @election.results unless @election.plurality_result || @election.approval_result + votes = @election.votes.size + data = Hash.new + names = @election.names_by_id - sbar.x_axis_label = "Rank" - sbar.y_axis_label = "Number of Times Ranked" + @election.plurality_result.points.each do |candidate, votes| + data[names[candidate]] = votes + end - sbar.minimum_value = 0.0 - send_data(sbar.to_blob, :disposition => 'inline', :type => 'image/png') - - - #data, labels = get_positions_info(@election) - + pie = GruffGraff.new ( :graph_type => Gruff::Pie, + :title => "Percentage of First Place Votes", + :data => data) + send_data(*pie.output) + end + private - def get_positions_info(election) buckets = Hash.new buckets2= Hash.new - ranks = Hash.new - - election.candidates.each do |candidate| - buckets[candidate.id] = [] - buckets2[candidate.id] = [] - end - + rank_labels = Hash.new + + #attach the ranking to the candidate's array to which is belongs + #creating a key if necessary election.votes.each do |vote| vote.rankings.each do |ranking| + + unless buckets.has_key?(ranking.candidate_id) + buckets[ranking.candidate_id] = [] + end buckets[ranking.candidate_id] << ranking.rank + end end - + + #count how many times each candidate has been ranked at a certain level buckets.each_pair do |id, array| (1..election.candidates.size).each do |i| + buckets2[id] = [] unless buckets2.has_key?(id) buckets2[id] << (array.find_all {|rank| rank == i}).size end end - return buckets2.values + #sort by amount of 1st place votes + sorted_data = buckets2.values.sort {|a,b| b[0] <=> a[0]} + + election.votes.each do |vote| + vote.rankings.size.times do |i| + rank_labels[i] = (i+1).to_s + end + end + return sorted_data, rank_labels end # generate the data and labels for each graph @@ -164,7 +195,8 @@ class GraphController < ApplicationController # Now I need to create an array with all the times votes were made election.votes.each do |vote| - voter_days << Date.parse(vote.time.to_s) + next unless vote.time + voter_days << Date.parse(vote.time.to_s) end voter_days.sort! @@ -202,7 +234,7 @@ class GraphController < ApplicationController # Make a hash, buckets, indexed by time intervals and containing empty arrays # The time object must come first in addition! - # i would start at 0, i+1 goes from 0 up till numcols + # i would start at 0, i+1 goes from 1 up till numcols numcols.times {|i| buckets[starttime + ((i+1)*interval_length)] = []} # Put votes into bucket according to the time interval to which they belong, @@ -210,6 +242,7 @@ class GraphController < ApplicationController # Will build a graph over time, as each successive interval will have more # vote objects election.votes.each do |vote| + next unless vote.time buckets.keys.sort.each do |inter| if vote.time < inter buckets[inter] << vote @@ -243,14 +276,12 @@ class GraphController < ApplicationController end def get_borda_points(result) - #points holds how mnay points each candidate has received in array form - #becasue Gruff::Bar#data takes only an array points = Array.new labels = Hash.new #Populate points with an sorted array from election.votes hash #biggest to smallest will go from left to right - points = result.election.votes.sort do |a, b| + points = result.points.sort do |a, b| b[1] <=> a[1] end.collect {|i| i[1]}