利用perl一键生成符合在线LEFse差异分析的Table表
LEfSe分析的在线+本地运行的详细教程参考刘尧博客
基于Picrust2进行宏基因预测后,我们往往需要对数据进行可视化话,其中LEFse就是非常不错的选择,这里通过perl实现对表的格式化。
LEFse --Galaxy平台:http://huttenhower.sph.harvard.edu/galaxy
use strict;
use warnings;
my $mapFile=$ARGV[0];
my $tableFile=$ARGV[1];
my %mapHash=();
open(MAP,"$mapFile")or die $!;
while(my $line=<MAP>)
{
chomp($line);
my @arr=split(/\s+/,$line);
$mapHash{
$arr[0]}=$arr[3];
}
close(MAP);
my %hash=();
my @samples=