Google Chartで草を生やす

Google ChartにはCalendar Chartというものがあるらしい。GitHhubとかにある、日付と値のペアを表にプロットして、値の大きさでセルに色を付けるチャート。

これで血液検査の結果を描いてみた。

// 血液検査の結果(非公開)
let bloods = Frame.ReadCsv("blood.csv")
let date = bloods.GetColumn<DateTime>("日付") |> Series.values
let P = bloods.GetColumn<double>("無機リン(P)") |> Series.values

let options =
    Options(
        height = 800,
        calendar = Calendar( cellSize = 12 ),
        colorAxis = ColorAxis(
          colors = [| "green"; "blue"; "red" |],
          maxValue = 7,
          minValue = 4,
          values = [| 3;5;7 |]
        )
    )

Seq.zip date P
|> Chart.Calendar
|> Chart.WithOptions options

血液検査は毎週やっているからデータはあるけど、月曜だけなのでスカスカな図になってしまった…。リン(P)の値は概ね6.0未満に保つべしとされていて、個人的には5.5未満を目指している。平均は5.1だけど、ちょくちょく油断して上がってしまう。あと、食べてるものはそんなに変えてないはずなのに年初は赤くなってしまう傾向にある。帰省とかもしないんですけどねぇ。