如何防止 GD::Graph 写入最后一个 X 标签并覆盖我的其他标签？

Posted 2023-02-25

【中文标题】如何防止 GD::Graph 写入最后一个 X 标签并覆盖我的其他标签？

【英文标题】：How do I keep GD::Graph from writing the last X label and overwriting my other labels?

【发布时间】：2012-04-01 02:54:41

【问题描述】：

我将x_label_skip 设置为跳过标签，但它仍然尝试显示最后一个标签，并且覆盖了另一个标签，看起来很乱。它不应该写最后一个标签。它应该跳过最后一个标签。我将要跳过的标签数量设置为有多少数据点的函数。

这就是它的样子：

代码：

my $graph = GD::Graph::lines->new(400, 500);
$graph->set(
  r_margin          => 2,
  x_label           => 'Date',
  y_label           => 'Price',
  title             => "$symbol1, $symbol2",
  dclrs             => [ qw(lred lblue lgreen lyellow lpurple cyan lorange) ],
  transparent       => 0,
  x_labels_vertical => 1,
  x_label_skip      => int ((@tmpDate * 8)/(400-50) + 1), # a function of # of data points, each label 8px. More labels, more skip.
) or die $graph->error;

【参考方案1】：

好的，我找到了。只需使用模将条目数除以要跳过的标签数，并将其用作偏移量。似乎 GD::Graph 总是想打印最后一个标签，所以无法控制，但你可以控制第一个标签打印。对我来说似乎倒退了，但无论如何。

my $graph = GD::Graph::lines->new(400, 500);
my $skip = int ((@tmpDate * 8)/(400-50) + 1); # a function of # of data points, each label 8px. More labels, more skip. 
$graph->set( 
  r_margin          => 2,
  x_label           => 'Date',
  y_label           => 'Price',
  title             => "$symbol1, $symbol2",
  dclrs             => [ qw(lred lblue lgreen lyellow lpurple cyan lorange) ],
  transparent       => 0,
  x_labels_vertical => 1,
  x_label_skip      => $skip,
  x_tick_offset     => @tmpDate % $skip, # ensure last label doesn't overwrite second-to-last label
) or die $graph->error;

【参考方案2】：

x_last_label_skip => 1 完全按照您的需要工作，只是跳过最后一个标签。 2012 年可能没有实施，但现在已经实施了。