グラフ作図の問題だったので、Rで描画