Merge head

[selectricity-live] / app / controllers / graph_controller.rb

diff --git a/app/controllers/graph_controller.rb b/app/controllers/graph_controller.rb
index 17e157809aab4fb5020a4c76ebdd6d850115ce8f..814eb363c437a0074abea9113fdc7e30e4a1a455 100644 (file)
--- a/app/controllers/graph_controller.rb
+++ b/app/controllers/graph_controller.rb
@@ -1,19 +1,34 @@
 require 'date'
 require 'date'

-class GraphController < ApplicationController
-  
+class GraphController < ApplicationController  

   class GruffGraff
   
     def initialize(options)
   class GruffGraff
   
     def initialize(options)

-      size = "700x400"
+      size = options[:size] ? options[:size] : "400x300" #allow custom sizing

       @graph = options[:graph_type].new(size)
       @graph = options[:graph_type].new(size)

-
-      @graph.theme = { :background_colors => ['#73BF26', '#ffffff'] }
+      
+      @graph.no_data_message = "No Voters"
+      
+      @graph.theme = { :colors => ['#005CD9', '#DC0D13', '#131313', '#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
       @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] )
       @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 \
       # set the labels or create an empty hash
       @graph.labels = options[:interval_labels] \
         if options.has_key?(:interval_labels) and \


@@ -59,17 +74,16 @@ class GraphController < ApplicationController
                             :data => data,
                             :interval_labels => labels,
                             :title => "Voters Over Time",
                             :data => data,
                             :interval_labels => labels,
                             :title => "Voters Over Time",

+                            :size => "700x400",

                             :x_axis_label => scale,
                             :y_axis_label => "Number of Votes")
     send_data(*graph.output)
   end
                             :x_axis_label => scale,
                             :y_axis_label => "Number of Votes")
     send_data(*graph.output)
   end

-
+  

   def borda_bar
     @election = Election.find(params[:id])
   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,
     
     graph = GruffGraff.new( :graph_type => Gruff::Bar,
                             :data_name => @election.name,


@@ -80,69 +94,89 @@ class GraphController < ApplicationController
                             :x_axis_label => "Candidate")
     send_data(*graph.output)
   end
                             :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])
   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
     
     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,
     
     graph = GruffGraff.new( :graph_type => Gruff::Bar,

-                            :data_name => @election.name,
-                            :data => data,
+                            :data => legend,

                             :interval_labels => labels,
                             :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
   end

+  

  private 
  private 

- 

   def get_positions_info(election)
     buckets = Hash.new
     buckets2= Hash.new
   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|
     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
         buckets[ranking.candidate_id] << ranking.rank

+        

       end
     end
       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|
     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
     
         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
   end
    
   # generate the data and labels for each graph


@@ -164,7 +198,8 @@ class GraphController < ApplicationController
     
     # Now I need to create an array with all the times votes were made
     election.votes.each do |vote|
     
     # 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!
     
     end
     voter_days.sort!
     


@@ -202,7 +237,7 @@ class GraphController < ApplicationController
     
     # Make a hash, buckets, indexed by time intervals and containing empty arrays
     # The time object must come first in addition! 
     
     # 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,
     numcols.times {|i| buckets[starttime + ((i+1)*interval_length)] = []}
      
     # Put votes into bucket according to the time interval to which they belong,


@@ -210,6 +245,7 @@ class GraphController < ApplicationController
     # Will build a graph over time, as each successive interval will have more
     # vote objects  
     election.votes.each do |vote|
     # 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
       buckets.keys.sort.each do |inter|
         if vote.time < inter
           buckets[inter] << vote


@@ -243,14 +279,12 @@ class GraphController < ApplicationController
   end
   
   def get_borda_points(result)
   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 = 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]}
 
       b[1] <=> a[1]
     end.collect {|i| i[1]}