Question

我在perl脚本中有一个累积的GD条形图，我似乎无法将标题字体更改为更大和更粗。

另外，更重要的是，如何在图表中添加图例？我已经读过在实际的图表中可能没有办法这样做但是添加了GD :: Graph :: Map。

关于如何进行其中任何一项的任何想法？我无法找到适用于其他任何地方的单一答案。

由于

my $graph = GD::Graph::bars->new (900,450);
$graph->set(
 x_label         => 'X Label',
 y_label         => 'Y label',
 title           => 'Title',

 t_margin        => 5,
 b_margin        => 2,
 l_margin        => 5,
 r_margin        => 5,

 y_min_value     => 0,
 y_max_value     => 1200,
 y_tick_number   => 8,
 y_label_skip    => 3,
 cumulate        => 1,

 dclrs           => [qw(#4f81bd #70AD47 #5b9bd5 #FFC000 #ED7D31 #AFABAB #9E480E #997300 #264478 #ac63e3 #FF7171 #d571ce)],
 fgclr           => black,
 textclr         => black,
 labelclr        => black,
 axislabelclr    => black,

 x_labels_vertical => 1,
 y_long_ticks      => 1,
 line_width      => 4,
 bar_spacing     => 10,
 transparent     => 0,
) or warn $graph->error;


$tmp_trend_file = 'graph.png';
open(IMG, ">$tmp_trend_file") or die $!;
binmode IMG;
print IMG $graph->plot(\@data)->png();
close IMG;  
print "<p><img src=$tmp_trend_file border=1><p>\n";

Answer 1

您可以添加图例并使用以下代码更改字体：

$graph->set_legend_font(GD::gdFontTiny); $graph->set_legend(split(' ',$legend));

GD ::图形字体和图例

1 个答案: