片対数グラフ

\documentclass[dvipdfmx,b5j,uplatex]{jsarticle}
\usepackage[dvipdfm,margin=1cm]{geometry}
\usepackage{tikz}
\pagestyle{empty}
\parindent0pt
\begin{document}
\centering
\def\xMax{120}
\def\yMax{3}
\begin{tikzpicture}[x=1.3mm,y=7.8cm]
\coordinate (O) at (0,0);
\coordinate (A) at (\xMax,\yMax);
%%% 縦方向の線
\foreach \x in {0,...,\xMax}{%
  \coordinate (X) at (\x,0);
  \draw[line width=.5pt] (X) -- (X |- A);
}%
%%% 一番下の水平線
\draw[line width=1.5pt] (O) -- (O -| A);
\foreach \pos in {1,...,\yMax} {%
  %%% 1～5 は0.1刻みで補助目盛り (0.5pt)
  \foreach \y in {11,...,49}{%
    \coordinate (X) at (0, {\pos-1+log10(\y/10)});
    \draw[line width=.5pt] (X) -- (X -| A);
  }%
  %%% 5～10 は0.2刻みで補助目盛り (0.5pt)
  \foreach \y in {52,54,...,98}{%
    \coordinate (X) at (0, {\pos-1+log10(\y/10)});
    \draw[line width=.5pt] (X) -- (X -| A);
  }%
  %%% 1,2,3,... の主目盛りは 1pt
  \foreach \y in {1,...,9}{%
    \coordinate (X) at (0, {\pos-1+log10(\y)});
    \draw[line width=1pt] (X) -- (X -| A);
  }%
  %%% 1, 10, 100,... の周期の境界線は特に太く (1.5pt)
  \coordinate (X) at (0, \pos);
  \draw[line width=1.5pt] (X) -- (X -| A);
}%
\end{tikzpicture}
\end{document}