Shell Programming and Scripting

A	1	12	22
B	3	34	33
C	55	9	32
A	12	81	71
D	11	1	66
E	455	4	2
B	89	4	3

A	6,5	46,5	46,5
B	46,0	19,0	18,0
C	55,0	9,0	32,0
D	11,0	1,0	66,0
E	455,0	4,0	2,0

awk '{
c[$1]=1
for(i=2;i<=NF;i++)
{
 total[$1,i]+=$i
 count[$1,i]++
}
}
END{
for(i in c)
{
 printf "%s",i
 for(j=2;count[i,j];j++)
  printf "\t%.1f", (total[i,j]/count[i,j])
 printf "\n"
}
}' file

awk '{a[$1]+=$2;b[$1]+=$3;c[$1]+=$4;d[$1]+=$5} END{for (i in a) print i,a[i],b[i],c[i],d[i]}' file

awk '{a[$1]+=$2; b[$1]+=$3; c[$1]+=$4; n[$1]++}
END{for(i in a) printf("%s\t%.1f\t%.1f\t%.1f\n", i, a[i]/n[i], b[i]/n[i], c[i]/n[i])}
' file

awk '{a[$1]+=$2;b[$1]+=$3;c[$1]+=$4;d[$1]+=$5;count[$1]+=1} END{for (i in a) print i,a[i]/count[i],b[i]/count[i],c[i]/count[i],d[i]/count[i]}' file