NAME

SimpleR::Reshape::ChartData

将统计数据转换为画图数据，让SimpleCall::ChartDirector调用

FUNCTION

read_chart_data_dim3

  my ($r, %opt) = read_chart_data_dim3('02.dim3.csv', 
      skip_head=> 1, 
      label => [0], 
      legend => [1], 
      data => [2], 
      sep=> ',', 
      charset => 'utf8', 

      #legend_remember_order => 1,  #1 : 默认值，用原有的顺序，0 : 直接sort
      #label_remember_order => 1, 

      #legend_sort => [ qw/ ... / ], # 指定固定顺序
      #label_sort => [ qw/ ... / ], 

      #chart_data_sub => sub { my ($h, $legend, $label) = @_; ... } 


      #finally,  resort label ....
#        resort_label_by_chart_data_map => sub { my ($r) = @_; 
#                 my ($good, $normal, $bad) = @$r;  #good/normal/bad => legend name, $good/$normal/$bad => chart data
#                 my $s = $good+$normal+$bad;
#                 return [ $bad/$s, $normal/$s ];
#        }, 
#        resort_label_by_chart_data_sort => sub { my ($x, $y) = @_; 
#                return ($x->[0] <=> $y->[0]) or ($x->[1] <=> $y->[1])
#        }, 
  );
  #$r = [[3, 2], [0, 1], [3, 0]],
  #%opt = ("legend",
  #["\xE4\xBC\x98", "\xE5\xB7\xAE", "\xE8\x89\xAF"],
  #"label",
  #["\xE7\x94\xB5\xE4\xBF\xA1", "\xE8\x81\x94\xE9\x80\x9A"], )

实例参考 xt子文件夹

default chart :

resort_label_by_chart_data_map

read_chart_data_dim2

 my ($r, %opt) = read_chart_data_dim2('01.dim2.csv', 
      skip_head=> 1, 
      label => [0], 
      data => [1], 
      sep=> ','
  );
#$r = [4, 3, 5],
#%opt = ("legend", [
  #"\xE6\x9D\x8E\xE5\xAD\x90",
  #"\xE6\xA1\x83\xE5\xAD\x90",
  #"\xE8\x8B\xB9\xE6\x9E\x9C", ],
#"label", [
  #"\xE6\x9D\x8E\xE5\xAD\x90",
  #"\xE6\xA1\x83\xE5\xAD\x90",
  #"\xE8\x8B\xB9\xE6\x9E\x9C", ], )

read_chart_data_dim3_horizon

my ($r, %opt) = read_chart_data_dim3_horizon('03.dim3_horizon.csv', 
    skip_head=> 1, 
    label => [0], 
    legend => [1 .. 3], 
    names => [ qw/time good normal bad/ ], 
    sep=> ','
);
#$r = [[1, 4, 3, 7], [3, 2, 2, 9], [4, 2, 3, 8]],
#%opt = ("legend",
#["bad", "good", "normal"],
#"label",
#["2013-08-01", "2013-08-02", "2013-08-03", "2013-08-04"],)

read_chart_data_dim3_scatter

my ($r, %opt) = read_chart_data_dim3_scatter('04.dim3_scatter.csv', 
    skip_head=> 1, 
    label => [1], 
    legend => [0], 
    data => [2], 
    label_sort => [  1 .. 20 ], 
    #legend_sort => [ '类', '型' ], 

    sep=> ',', 
    charset => 'utf8', 
);

#(
  #[
    #[
      #[6, 11, 7, 9, 12, 8, 4, 3.5, 10],
      #[65, 105, 70, 80, 100, 60, 40, 45, 90],
    #],
    #[
      #[6, 10.5, 12, 14, 15, 8, 10, 13, 16],
      #[80, 125, 125, 110, 150, 105, 130, 115, 170],
    #],
  #],
  #"legend",
  #["\x{578B}", "\x{7C7B}"],
  #"label",
  #[1 .. 20],
#)