type(tuple) :: args
type(ndarray) :: x_nd, y_nd
type(dict) :: kwargs
real, allocatable :: x(:), y(:)

x = ...
y = ...

ierr = ndarray_create(x_nd, x)
ierr = ndarray_create(y_nd, y)
ierr = tuple_create(args, 2)
ierr = args%setitem(0, x_nd)
ierr = args%setitem(1, y_nd)
ierr = dict_create(kwargs)
ierr = kwargs%setitem("color", 'blue')
ierr = call_py_noret(plt, 'plot', args, kwargs)
ierr = call_py_noret(plt, 'show')

次にこれらの ndarray を tuple 変数に格納します。これも面倒ですが、まず tuple を要素が2つであると宣言し、ひとつめ(0から始まるのが Fortran 使いとしては嫌ですね…)に x_nd を、二つめに y_nd を setitem を用いて 格納します。これだけあれば最低限の線は引けます。

色を変えたいなどのオプションについては、dict 変数を利用します。ここでは 例として色だけを示していますが、オプションがわかれば似たようにすればOKで す。まず dict 変数 kwargs を作ります。そして setitem を用いて "color" に 'blue' を定義します(このように dict 変数は対になっています)。

たとえばさらに線種を変えたい、というときは、上の "color" を定義した行に 続けて、

ierr = kwargs%setitem("linestyle", '--')

ここまでやって、python での

plt.plot(x_nd, y_nd, color='blue', linestyle='--')

ierr = ndarray_create(x_nd, x)
ierr = ndarray_create(y_nd, y)
ierr = tuple_create(args, 3)
ierr = args%setitem(0, x_nd)
ierr = args%setitem(1, y_nd)
ierr = args%setitem(2, 'o')
ierr = dict_create(kwargs)
ierr = kwargs%setitem("markersize", 1)
ierr = kwargs%setitem("markerfacecolor", 'black')
ierr = kwargs%setitem("markeredgecolor", 'black')
ierr = call_py_noret(plt, 'plot', args, kwargs)

ややこしい点は、boxplot のオプションは上と同様に辞書型変数に格納するので すが、箱や中央値のそれぞれに color='black', lw=2.,... みたいなオプション を定義していかないといけないので、箱のオプションを入れた辞書型変数、ひげ のオプションを入れた辞書型変数、,,, を設定し、その上でそれらの辞書型変数 をまとめた辞書型変数を定義して、boxplot に喰わせる、という手続きが必要な ことです。

この例では、kwargs2 という変数が boxplot に喰わせる変数で、その中に、 boxprops や whiskerprops などのオプションを定義した変数が入っています。 中ほどで kwargs2b とか kwargs2c とかを定義し、下のほうでそれらを kwargs2 に入れこんでいます。

このように辞書型変数を入れ子にすれば良いということに気付くまでには結構苦 労しました…。

ierr = dict_create(kwargs2)                   !boxplotのオプション；辞書型変数の中に別の辞書型変数を入れる
ierr = kwargs2%setitem("widths",0.05)         ! boxの幅の設定
ierr = kwargs2%setitem("manage_ticks",'False')! x軸を名義尺度ではなく数値として意味のあるものにしたいため

ierr = ndarray_create(y_nd, [0,100])       ! 外れ値を設定しない(ひげの範囲で全部含むようにする)
ierr = kwargs2%setitem("whis",y_nd)        ! 外れ値を設定しない

ierr = kwargs2%setitem("showmeans",'True') ! 平均値も表示

color = 'green'
ierr = kwargs2%setitem("patch_artist",'True') ! 詳細な設定を可能にする

ierr = dict_create(kwargs2b)               ! boxplotのオプションは複雑なので辞書変数を複数定義することが必要
ierr = kwargs2b%setitem("facecolor",'none')! 箱の内部の色なし
ierr = kwargs2b%setitem("color",color)     ! 色の設定
ierr = kwargs2b%setitem("lw",'0.5')        ! 箱の線の色

ierr = dict_create(kwargs2c)               ! ひげ用、ひげの先端用の変数(同じなので一つの変数を使いまわしている)
ierr = kwargs2c%setitem("color",color)
ierr = kwargs2c%setitem("lw",'0.5')

ierr = dict_create(kwargs2d)               ! 中央値用の変数
ierr = kwargs2d%setitem("color",color)
ierr = kwargs2d%setitem("lw",'2.')

ierr = dict_create(kwargs2e)               ! 平均値用の変数
ierr = kwargs2e%setitem("marker",'d')
ierr = kwargs2e%setitem("markeredgecolor",color)
ierr = kwargs2e%setitem("markerfacecolor",'none')

ierr = kwargs2%setitem("boxprops",kwargs2b)     ! 箱のオプション
ierr = kwargs2%setitem("whiskerprops",kwargs2c) ! ひげのオプション
ierr = kwargs2%setitem("capprops",kwargs2c)     ! ひげの先端のオプション
ierr = kwargs2%setitem("medianprops",kwargs2d)  ! 中央値のオプション
ierr = kwargs2%setitem("meanprops", kwargs2e)   ! 平均値のオプション

ierr = ndarray_create(x_nd, [real(i)])  ! x軸の数値の設定； ここではx軸上で変数iの数値の位置に箱が描かれるようにしている
ierr = ndarray_create(y_nd, y)          ! 数値データ
ierr = kwargs2%setitem("positions",x_nd)! x軸を名義尺度ではなく数値で位置を決めるようにする
ierr = tuple_create(arg2, 1)
ierr = arg2%setitem(0, y_nd)            ! tuple変数 arg2 に y_nd を入れる
ierr = call_py_noret(plt, 'boxplot', arg2, kwargs2) ! arg2 に入っている配列の分布に従って、kwargs2 のオプションで箱ひげ図を描く

ierr = call_py_noret(plt, 'show')

ierr = call_py_noret(plt, 'savefig', 'figure.pdf')

ierr = tuple_create(arg_outfile,1)
ierr = arg_outfile%setitem(0, "figure.pdf")
ierr = call_py_noret(plt, 'savefig', arg_outfile)