折れ線グラフを作ってみたのですが、(17,0)の点から原点方向に向かって余分な長い線が引かれてしまって、
グラフが変な形になります。ソースは添付しています。解決方法が分かる方はいらしゃいませんか。
¥documentclass[landscape,dvipdfmx]{jsarticle}
¥usepackage{graphicx,xcolor,tikz}
¥usepackage[dvipdfm,margin=1cm]{geometry}
¥pagestyle{empty}
¥def¥mintime{1}
¥def¥maxtime{16}
¥def¥xmin{¥mintime-1-0.5}
¥def¥xmax{¥maxtime-1+0.5}
%%% 折れ線グラフのデータとデータラベル出力位置
¥def¥lineChartData{
1/25/above,
2/24/above,
3/23/{above,xshift=4pt},
4/14/below,
5/16/{above,xshift=-4pt},
6/19/above,
7/15/below,
8/20/above,
9/21/below,
10/23/below,
11/23/below,
12/23/below,
13/23/below,
14/25/below,
15/30/above,
16/50/{above,xshift=4pt},
}
%%% 折れ線グラフの出力
¥def¥outputLineChartData#1{%
¥def¥points{}%
¥foreach ¥x/¥y/¥pos in {#1}{%
¥expandafter¥node¥expandafter[¥pos, fill=white, inner sep=2pt, outer sep=5pt] at (¥x-1,¥y) {¥y};
¥xdef¥points{¥points(¥x-1,¥y)}
}
¥draw[mark=*, mark size=3pt, line width=2pt, color=red] plot coordinates {¥points};
}
¥def¥lineChart{¥bgroup
¥def¥ymin{0}%
¥def¥ymax{120}%
¥begin{center}
¥makebox[0pt][c]{%
¥begin{tikzpicture}[x=9mm,y=1mm]
¥draw (¥xmin,¥ymax) -- (¥xmin,¥ymin) -- (¥xmax,¥ymin) -- (¥xmax,¥ymax);
¥foreach ¥x in {1,...,16}
¥draw[font=¥small] (¥x-1,¥ymin) node[below] {¥x} -- +(0,1);
¥foreach ¥y in {10,20,...,120}{
¥ifx¥y¥ymax¥def¥style{}¥else¥def¥style{dotted}¥fi
¥draw[¥style] (¥xmin,¥y) node[left] {¥y} -- (¥xmax,¥y);
}
¥expandafter¥outputLineChartData¥expandafter{¥lineChartData}
¥end{tikzpicture}}¥par
{¥Large 推移}
¥end{center}
¥egroup}
¥begin{document}
¥baselineskip22pt
¥lineChart
¥end{document}