简简单单画个折线图，代码验证，复制可用

想要绘图和生信分析欢迎咨询
直接上代码

#!/usr/bin/perl
use strict;
use warnings;
use GD::Graph::lines;

# 数据
my @data = (
    [ 1, 2, 3, 4, 5 ],
    [ 2, 5, 6, 5, 10 ],
);

# 创建一个新的图像对象
my $graph = GD::Graph::lines->new(600, 400);

# 设置图像的标题、X轴和Y轴标签
$graph->set(
    title => 'pic1',
    x_label => 'x',
    y_label => 'y',
    line_width => 2,
);

# 绘制折线图
my $image = $graph->plot(\@data);

# 保存图像到文件
open my $fh, '>', 'line_chart.png' or die "无法打开文件： $!";
binmode $fh;
print $fh $image->png;
close $fh;