You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
374 lines
10 KiB
374 lines
10 KiB
6 years ago
|
require 'SVG/Graph/Plot'
|
||
|
|
require 'parsedate'
|
||
|
|
|
||
|
|
module SVG
|
||
|
|
module Graph
|
||
|
|
# === For creating SVG plots of scalar temporal data
|
||
|
|
#
|
||
|
|
# = Synopsis
|
||
|
|
#
|
||
|
|
# require 'SVG/Graph/Schedule'
|
||
|
|
#
|
||
|
|
# # Data sets are label, start, end tripples.
|
||
|
|
# data1 = [
|
||
|
|
# "Housesitting", "6/17/04", "6/19/04",
|
||
|
|
# "Summer Session", "6/15/04", "8/15/04",
|
||
|
|
# ]
|
||
|
|
#
|
||
|
|
# graph = SVG::Graph::Schedule.new( {
|
||
|
|
# :width => 640,
|
||
|
|
# :height => 480,
|
||
|
|
# :graph_title => title,
|
||
|
|
# :show_graph_title => true,
|
||
|
|
# :no_css => true,
|
||
|
|
# :scale_x_integers => true,
|
||
|
|
# :scale_y_integers => true,
|
||
|
|
# :min_x_value => 0,
|
||
|
|
# :min_y_value => 0,
|
||
|
|
# :show_data_labels => true,
|
||
|
|
# :show_x_guidelines => true,
|
||
|
|
# :show_x_title => true,
|
||
|
|
# :x_title => "Time",
|
||
|
|
# :stagger_x_labels => true,
|
||
|
|
# :stagger_y_labels => true,
|
||
|
|
# :x_label_format => "%m/%d/%y",
|
||
|
|
# })
|
||
|
|
#
|
||
|
|
# graph.add_data({
|
||
|
|
# :data => data1,
|
||
|
|
# :title => 'Data',
|
||
|
|
# })
|
||
|
|
#
|
||
|
|
# print graph.burn()
|
||
|
|
#
|
||
|
|
# = Description
|
||
|
|
#
|
||
|
|
# Produces a graph of temporal scalar data.
|
||
|
|
#
|
||
|
|
# = Examples
|
||
|
|
#
|
||
|
|
# http://www.germane-software/repositories/public/SVG/test/schedule.rb
|
||
|
|
#
|
||
|
|
# = Notes
|
||
|
|
#
|
||
|
|
# The default stylesheet handles upto 10 data sets, if you
|
||
|
|
# use more you must create your own stylesheet and add the
|
||
|
|
# additional settings for the extra data sets. You will know
|
||
|
|
# if you go over 10 data sets as they will have no style and
|
||
|
|
# be in black.
|
||
|
|
#
|
||
|
|
# Note that multiple data sets within the same chart can differ in
|
||
|
|
# length, and that the data in the datasets needn't be in order;
|
||
|
|
# they will be ordered by the plot along the X-axis.
|
||
|
|
#
|
||
|
|
# The dates must be parseable by ParseDate, but otherwise can be
|
||
|
|
# any order of magnitude (seconds within the hour, or years)
|
||
|
|
#
|
||
|
|
# = See also
|
||
|
|
#
|
||
|
|
# * SVG::Graph::Graph
|
||
|
|
# * SVG::Graph::BarHorizontal
|
||
|
|
# * SVG::Graph::Bar
|
||
|
|
# * SVG::Graph::Line
|
||
|
|
# * SVG::Graph::Pie
|
||
|
|
# * SVG::Graph::Plot
|
||
|
|
# * SVG::Graph::TimeSeries
|
||
|
|
#
|
||
|
|
# == Author
|
||
|
|
#
|
||
|
|
# Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
|
||
|
|
#
|
||
|
|
# Copyright 2004 Sean E. Russell
|
||
|
|
# This software is available under the Ruby license[LICENSE.txt]
|
||
|
|
#
|
||
|
|
class Schedule < Graph
|
||
|
|
# In addition to the defaults set by Graph::initialize and
|
||
|
|
# Plot::set_defaults, sets:
|
||
|
|
# [x_label_format] '%Y-%m-%d %H:%M:%S'
|
||
|
|
# [popup_format] '%Y-%m-%d %H:%M:%S'
|
||
|
|
def set_defaults
|
||
|
|
init_with(
|
||
|
|
:x_label_format => '%Y-%m-%d %H:%M:%S',
|
||
|
|
:popup_format => '%Y-%m-%d %H:%M:%S',
|
||
|
|
:scale_x_divisions => false,
|
||
|
|
:scale_x_integers => false,
|
||
|
|
:bar_gap => true
|
||
|
|
)
|
||
|
|
end
|
||
|
|
|
||
|
|
# The format string use do format the X axis labels.
|
||
|
|
# See Time::strformat
|
||
|
|
attr_accessor :x_label_format
|
||
|
|
# Use this to set the spacing between dates on the axis. The value
|
||
|
|
# must be of the form
|
||
|
|
# "\d+ ?(days|weeks|months|years|hours|minutes|seconds)?"
|
||
|
|
#
|
||
|
|
# EG:
|
||
|
|
#
|
||
|
|
# graph.timescale_divisions = "2 weeks"
|
||
|
|
#
|
||
|
|
# will cause the chart to try to divide the X axis up into segments of
|
||
|
|
# two week periods.
|
||
|
|
attr_accessor :timescale_divisions
|
||
|
|
# The formatting used for the popups. See x_label_format
|
||
|
|
attr_accessor :popup_format
|
||
|
|
attr_accessor :min_x_value
|
||
|
|
attr_accessor :scale_x_divisions
|
||
|
|
attr_accessor :scale_x_integers
|
||
|
|
attr_accessor :bar_gap
|
||
|
|
|
||
|
|
# Add data to the plot.
|
||
|
|
#
|
||
|
|
# # A data set with 1 point: Lunch from 12:30 to 14:00
|
||
|
|
# d1 = [ "Lunch", "12:30", "14:00" ]
|
||
|
|
# # A data set with 2 points: "Cats" runs from 5/11/03 to 7/15/04, and
|
||
|
|
# # "Henry V" runs from 6/12/03 to 8/20/03
|
||
|
|
# d2 = [ "Cats", "5/11/03", "7/15/04",
|
||
|
|
# "Henry V", "6/12/03", "8/20/03" ]
|
||
|
|
#
|
||
|
|
# graph.add_data(
|
||
|
|
# :data => d1,
|
||
|
|
# :title => 'Meetings'
|
||
|
|
# )
|
||
|
|
# graph.add_data(
|
||
|
|
# :data => d2,
|
||
|
|
# :title => 'Plays'
|
||
|
|
# )
|
||
|
|
#
|
||
|
|
# Note that the data must be in time,value pairs, and that the date format
|
||
|
|
# may be any date that is parseable by ParseDate.
|
||
|
|
# Also note that, in this example, we're mixing scales; the data from d1
|
||
|
|
# will probably not be discernable if both data sets are plotted on the same
|
||
|
|
# graph, since d1 is too granular.
|
||
|
|
def add_data data
|
||
|
|
@data = [] unless @data
|
||
|
|
|
||
|
|
raise "No data provided by #{conf.inspect}" unless data[:data] and
|
||
|
|
data[:data].kind_of? Array
|
||
|
|
raise "Data supplied must be title,from,to tripples! "+
|
||
|
|
"The data provided contained an odd set of "+
|
||
|
|
"data points" unless data[:data].length % 3 == 0
|
||
|
|
return if data[:data].length == 0
|
||
|
|
|
||
|
|
|
||
|
|
y = []
|
||
|
|
x_start = []
|
||
|
|
x_end = []
|
||
|
|
data[:data].each_index {|i|
|
||
|
|
im3 = i%3
|
||
|
|
if im3 == 0
|
||
|
|
y << data[:data][i]
|
||
|
|
else
|
||
|
|
arr = ParseDate.parsedate( data[:data][i] )
|
||
|
|
t = Time.local( *arr[0,6].compact )
|
||
|
|
(im3 == 1 ? x_start : x_end) << t.to_i
|
||
|
|
end
|
||
|
|
}
|
||
|
|
sort( x_start, x_end, y )
|
||
|
|
@data = [x_start, x_end, y ]
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
protected
|
||
|
|
|
||
|
|
def min_x_value=(value)
|
||
|
|
arr = ParseDate.parsedate( value )
|
||
|
|
@min_x_value = Time.local( *arr[0,6].compact ).to_i
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
def format x, y
|
||
|
|
Time.at( x ).strftime( popup_format )
|
||
|
|
end
|
||
|
|
|
||
|
|
def get_x_labels
|
||
|
|
rv = get_x_values.collect { |v| Time.at(v).strftime( x_label_format ) }
|
||
|
|
end
|
||
|
|
|
||
|
|
def y_label_offset( height )
|
||
|
|
height / -2.0
|
||
|
|
end
|
||
|
|
|
||
|
|
def get_y_labels
|
||
|
|
@data[2]
|
||
|
|
end
|
||
|
|
|
||
|
|
def draw_data
|
||
|
|
fieldheight = field_height
|
||
|
|
fieldwidth = field_width
|
||
|
|
|
||
|
|
bargap = bar_gap ? (fieldheight < 10 ? fieldheight / 2 : 10) : 0
|
||
|
|
subbar_height = fieldheight - bargap
|
||
|
|
|
||
|
|
field_count = 1
|
||
|
|
y_mod = (subbar_height / 2) + (font_size / 2)
|
||
|
|
min,max,div = x_range
|
||
|
|
scale = (@graph_width.to_f - font_size*2) / (max-min)
|
||
|
|
@data[0].each_index { |i|
|
||
|
|
x_start = @data[0][i]
|
||
|
|
x_end = @data[1][i]
|
||
|
|
y = @graph_height - (fieldheight * field_count)
|
||
|
|
bar_width = (x_end-x_start) * scale
|
||
|
|
bar_start = x_start * scale - (min * scale)
|
||
|
|
|
||
|
|
@graph.add_element( "rect", {
|
||
|
|
"x" => bar_start.to_s,
|
||
|
|
"y" => y.to_s,
|
||
|
|
"width" => bar_width.to_s,
|
||
|
|
"height" => subbar_height.to_s,
|
||
|
|
"class" => "fill#{field_count+1}"
|
||
|
|
})
|
||
|
|
field_count += 1
|
||
|
|
}
|
||
|
|
end
|
||
|
|
|
||
|
|
def get_css
|
||
|
|
return <<EOL
|
||
|
|
/* default fill styles for multiple datasets (probably only use a single dataset on this graph though) */
|
||
|
|
.key1,.fill1{
|
||
|
|
fill: #ff0000;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 0.5px;
|
||
|
|
}
|
||
|
|
.key2,.fill2{
|
||
|
|
fill: #0000ff;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key3,.fill3{
|
||
|
|
fill: #00ff00;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key4,.fill4{
|
||
|
|
fill: #ffcc00;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key5,.fill5{
|
||
|
|
fill: #00ccff;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key6,.fill6{
|
||
|
|
fill: #ff00ff;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key7,.fill7{
|
||
|
|
fill: #00ffff;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key8,.fill8{
|
||
|
|
fill: #ffff00;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key9,.fill9{
|
||
|
|
fill: #cc6666;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key10,.fill10{
|
||
|
|
fill: #663399;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key11,.fill11{
|
||
|
|
fill: #339900;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
.key12,.fill12{
|
||
|
|
fill: #9966FF;
|
||
|
|
fill-opacity: 0.5;
|
||
|
|
stroke: none;
|
||
|
|
stroke-width: 1px;
|
||
|
|
}
|
||
|
|
EOL
|
||
|
|
end
|
||
|
|
|
||
|
|
private
|
||
|
|
def x_range
|
||
|
|
max_value = [ @data[0][-1], @data[1].max ].max
|
||
|
|
min_value = [ @data[0][0], @data[1].min ].min
|
||
|
|
min_value = min_value<min_x_value ? min_value : min_x_value if min_x_value
|
||
|
|
|
||
|
|
range = max_value - min_value
|
||
|
|
right_pad = range == 0 ? 10 : range / 20.0
|
||
|
|
scale_range = (max_value + right_pad) - min_value
|
||
|
|
|
||
|
|
scale_division = scale_x_divisions || (scale_range / 10.0)
|
||
|
|
|
||
|
|
if scale_x_integers
|
||
|
|
scale_division = scale_division < 1 ? 1 : scale_division.round
|
||
|
|
end
|
||
|
|
|
||
|
|
[min_value, max_value, scale_division]
|
||
|
|
end
|
||
|
|
|
||
|
|
def get_x_values
|
||
|
|
rv = []
|
||
|
|
min, max, scale_division = x_range
|
||
|
|
if timescale_divisions
|
||
|
|
timescale_divisions =~ /(\d+) ?(days|weeks|months|years|hours|minutes|seconds)?/
|
||
|
|
division_units = $2 ? $2 : "days"
|
||
|
|
amount = $1.to_i
|
||
|
|
if amount
|
||
|
|
step = nil
|
||
|
|
case division_units
|
||
|
|
when "months"
|
||
|
|
cur = min
|
||
|
|
while cur < max
|
||
|
|
rv << cur
|
||
|
|
arr = Time.at( cur ).to_a
|
||
|
|
arr[4] += amount
|
||
|
|
if arr[4] > 12
|
||
|
|
arr[5] += (arr[4] / 12).to_i
|
||
|
|
arr[4] = (arr[4] % 12)
|
||
|
|
end
|
||
|
|
cur = Time.local(*arr).to_i
|
||
|
|
end
|
||
|
|
when "years"
|
||
|
|
cur = min
|
||
|
|
while cur < max
|
||
|
|
rv << cur
|
||
|
|
arr = Time.at( cur ).to_a
|
||
|
|
arr[5] += amount
|
||
|
|
cur = Time.local(*arr).to_i
|
||
|
|
end
|
||
|
|
when "weeks"
|
||
|
|
step = 7 * 24 * 60 * 60 * amount
|
||
|
|
when "days"
|
||
|
|
step = 24 * 60 * 60 * amount
|
||
|
|
when "hours"
|
||
|
|
step = 60 * 60 * amount
|
||
|
|
when "minutes"
|
||
|
|
step = 60 * amount
|
||
|
|
when "seconds"
|
||
|
|
step = amount
|
||
|
|
end
|
||
|
|
min.step( max, step ) {|v| rv << v} if step
|
||
|
|
|
||
|
|
return rv
|
||
|
|
end
|
||
|
|
end
|
||
|
|
min.step( max, scale_division ) {|v| rv << v}
|
||
|
|
return rv
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|