样品表达量的相关性系数计算及画图

在刚开始学的时候不会用R来计算相关性系数，也不会画图，结果博主很悲催地用perl的svg进行画图，很久之前的作品：

#!/usr/bin/env perl
use warnings;
use strict;
use lib "/bin/svg_lib";
use PLOT qw(Paper End Point Rect Line Text Polyline Path);

die "Usage:perl $0 <file.list>\n" unless @ARGV == 1;
my $xml = ();
$xml .= Paper();
my ($init_x, $init_y) = (20, 20); 
my $point_size = 1; # point size 
my ($i, $j) = (0, 0); # row col
my $size = 120; # Rect size
my $interval = 80; # Rect size
my $total_rect = 5;

open(FA, $ARGV[0]) || die $!;
while(<FA>)
{
	chomp;
	my @tmp = split;
	open(IN, $tmp[0]) || die $!;
	# draw border start
	if($i >= $total_rect) # number  perl row
	{
		$j++;
		$i = $j;
	}
	$xml .= Rect($init_x+$i*$interval,$init_y+$j*$interval,$size,$size,2,"black","white");
	while(<IN>)
	{
		chomp;
		if(/(\S+)\t(\S+)/)
		{
			my ($x,