값이 x회 이상 발생하는 열을 선택하세요.

Question 1

BEGIN { OFS = FS = "\t" }

FNR == NR {
        for (i = 2; i <= NF; ++i)
                if ($i == 2) ++c[i]
        next
}

{
        a[nf=1] = $1
        for (i = 2; i <= NF; ++i)
                if (c[i] >= t) a[++nf] = $i

        $0 = ""
        for (i = 1; i <= nf; ++i)
                $i = a[i]

        print
}

프로그램 awk은 각 열에서 해당 값의 발생 횟수를 계산 2하고 이러한 수를 배열 c(데이터의 각 열에 대해 하나의 요소)에 저장합니다. 입력 파일(블록)을 처음 읽을 때 이 작업을 수행합니다 FNR == NR.

입력 파일을 두 번째로 읽으면 이 개수를 사용하여 입력의 적절한 열을 a각 행에 대해 읽은 배열로 전송합니다. 변수 값은 t열을 포함해야 하는지 여부를 결정하는 임계값으로 사용됩니다. 이것은 for마지막 코드 블록의 첫 번째 루프입니다.

그런 다음 이 배열에서 새 데이터 레코드를 생성하고 인쇄합니다.

awk테스트해 보세요( 두 번 전달할 수 있도록 입력 파일이 명령줄에 두 번 제공된다는 점에 유의하세요 ).

$ cat file
Individuals     M1      M2      M3
Ind1    0       0       2
Ind2    0       2       2
Ind3    2       2       2

$ awk -v t=1 -f script.awk file file
Individuals     M1      M2      M3
Ind1    0       0       2
Ind2    0       2       2
Ind3    2       2       2

$ awk -v t=2 -f script.awk file file
Individuals     M2      M3
Ind1    0       2
Ind2    2       2
Ind3    2       2

$ awk -v t=3 -f script.awk file file
Individuals     M3
Ind1    2
Ind2    2
Ind3    2

$ awk -v t=4 -f script.awk file file
Individuals
Ind1
Ind2
Ind3

Answer

BEGIN { OFS = FS = "\t" }

FNR == NR {
        for (i = 2; i <= NF; ++i)
                if ($i == 2) ++c[i]
        next
}

{
        a[nf=1] = $1
        for (i = 2; i <= NF; ++i)
                if (c[i] >= t) a[++nf] = $i

        $0 = ""
        for (i = 1; i <= nf; ++i)
                $i = a[i]

        print
}