perlでの平均計算について

質問

以下のようなデータがあります。そこでカラム１が等しい値をもつものを一グループとし、カラム2の平均値を求めたいのですが、なかなかうまくいきません。どなたかご教授をお願いいたします。よろしくお願いします。

カラム１　　　カラム２

1 　　　　　　　 123.93
1 　　　　　　　 322.32
1 　　　　　　　 232.21
1 　　　　　　　 124.32
1 　　　　　　　 234.12
2 　　　　　　　 123.43
2 　　　　　　 12.34
2 　　　　　　　　 .
2 　　　　　　　　 .
2 　　　　　　　　 .
3　
3
3
4
4
4
4

回答No.1

1204533 · ベストアンサー

それほど　プログラムができる人間ではないですが。。。
このような　ロジックではいかがでしょうか？

連想配列hashを　2種類活用し、
1つ目のhash
カラム1の種類ごとに　カラム2を足していく。
（hash｛カラム1｝に　どんどん　カラム１が同じもののカラム2の値を足していく。）
hash｛カラム1｝=hash｛カラム1｝+カラム2

2つ目のhash2
カラム1の種類ごとに、各カラム１のおなじものが　何個あるか　カウントしていく。
（hash2｛カラム1｝に　カラム1が同じものをカウントしていく。）
hash2｛カラム1｝=hash2｛カラム1｝+1

平均値は
hash｛カラム1｝/hash2｛カラム1｝で　求まると思います。

お礼

早速の回答ありがとうございます。
hashにもあまり慣れていないプログラミング初心者でなかなか理解するのが難しい状態です。もしよろしければもう少し具体的な構成を教えていただけないでしょうか？

回答No.3

kuroizell

インデントの都合上、全角スペース使ってるので置換して下さい。

use strict;
use warnings;

# データのぶちこみ場所（2次ハッシュ）
my %data;

# CSVデータはスクリプト中に書けるので、今回はそれを使います
while (<DATA>) {
　　chomp $_;
　　my @cols = split(',', $_);

　　# 各カラムごとの合計(sum)、個数(cnt)
　　$data{$cols[0]}{sum} += $cols[1];
　　$data{$cols[0]}{cnt}++;
}

foreach my $col (sort keys %data) {
　　# 適当に出力
　　print "Colmns $col : Avg = " . $data{$col}{sum} / $data{$col}{cnt} . "\n";
}

__DATA__
1,123.93
1,322.32
1,232.21
1,124.32
1,234.12
2,123.43
2,12.34

お礼

求めたかったデータを得ることができました。
丁寧に回答していただき本当にありがとうございました。

回答No.2

1204533

あまりプログラムが得意でないので、効率よいきれいなプログラムでないかもしれませんが、
かきのようなもので　どうでしょうか？

open(IN,ファイル1);
while(<IN>){
$line = $_;
chomp $line;
@array = split(/\t/,$line);
$id1 = $array[0];
$score = $array[1];
if(exists $hash{$id1}){
$hash{$id1}=$hash{$id1}+$score;
$hash2{$id1}=$hash2{$id1}+1;
} else {
$hash{$id1}=$score;
$hash2{$id1}=1;
}
}
close(IN);

foreach(sort keys %hash)
{
my $key=$_;
my $value=$hash{$_};
my $value2=int($value/$hash2{$_}); 商だけを採用するのであれば　intを利用
print　$key.' -> '.$value2."\n"
}
とすると
1　 ->　XXX　とかでてくるのではないでしょうか？

お礼

詳細にプログラムまで書いていただきありがとうございます。
おかげさまでデータ処理を行うことができました。
ありがとうございました！