{{{
verbatimtex
%&latex
\documentclass{article}
\usepackage{dhucs}
\begin{document}
etex;

input graph;
}}}
----
Uploads:civilgdp-0.jpg
{{{
beginfig(0);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" ;
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-1.jpg
{{{
beginfig(1);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" ;
        gdotlabel.lft(btex IMF $\rightarrow$ etex, 45);
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-2.jpg
{{{
beginfig(2);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt"  withpen pencircle scaled 1.5pt;
        glabel.ulft(btex 민사소송 etex, 43);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 사건수 etex rotated 90 ,OUT);
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-3.jpg
{{{
beginfig(3);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" withpen pencircle scaled 1.5pt;
        glabel.ulft(btex 민사소송 etex, 43);
        gdraw "rgdp.txt" ;
        glabel.lrt(btex GDP etex, 45);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 사건수/십억원 etex rotated 90 ,OUT);
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-4.jpg
{{{
beginfig(4);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 43);
        autogrid(,otick.lft);
        setcoords(linear,linear);
        gdraw "rgdp.txt" ;
        glabel.ulft(btex GDP etex, 40);
        autogrid(otick.bot,otick.rt);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(건수) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(십억원) etex rotated -90 ,OUT);
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-5.jpg
{{{
input sarith;

beginfig(5);
    draw begingraph(12cm,8cm);
        path p[];
        gdata("clitig.txt",$,
            if scantokens $1 >=1980: augment.p0($1,$2 Sdiv 1000); fi);
        gdata("rgdp.txt",$,
            if scantokens $1 >=1980: augment.p1($1,$2 Sdiv 1000); fi);
        gdraw p0 withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 13);
        autogrid(,otick.lft);
        setcoords(linear,linear);
        gdraw p1 ;
        glabel.ulft(btex GDP etex, 15);
        autogrid(,otick.rt);
        for u=auto.x: otick.bot(format("%f",u),u); endfor;
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(천건) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(조원) etex rotated -90 ,OUT);
    endgraph;
endfig;
}}}
----
Uploads:civilgdp-6.jpg
{{{
beginfig(6);
    draw begingraph(12cm,8cm);
        path p[];
        gdata("clitig.txt",$,
            if scantokens $1 >=1980: augment.p0($1,$2 Sdiv 1000); fi);
        gdata("rgdp.txt",$,
            if scantokens $1 >=1980: augment.p1($1,$2 Sdiv 1000); fi);
        gdraw p0 withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 13);
        for u=auto.y: otick.lft(format("%g",u Smul 1000),u); endfor;
        setcoords(linear,linear);
        gdraw p1 ;
        glabel.ulft(btex GDP etex, 15);
        for u=auto.y: otick.rt(format("%g",u Smul 1000),u); endfor;
        for u=auto.x: otick.bot(format("%f",u),u); endfor;
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(건수) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(십억원) etex rotated -90 ,OUT);
    endgraph;
endfig;
}}}
----
{{{
end;
}}}
----
Data : Uploads:clitig.txt Uploads:rgdp.txt