後で確認してみるが、とりあえずメモ。先に、z-w空間内での計算 [P1, P2] = [(z1, w1), (z2, w2)] として、次の方程式を解く。 w2 + t*(w2 - w1) = 0 t = w1/(w1 - w2) s = z1 + (w1/(w1 - w2))*(z2 - z1)話は前後するが、座標変換の行列Tを定義する。 Tの成…

スカラーがない。長さ1のベクトルしかない。 とにかくリテラルがない。ベクトルでさえリテラルで書けない。キツイ。 ミュータブルなオブジェクトがない。S4, R5, R6か？ 構造体的データがない。listで代用 行列の折り返し方向が逆（列優先） データフレーム…

stat_bin <- function ( mapping = NULL, data = NULL, geom = "bar", position = "stack", width = 0.9, drop = FALSE, right = FALSE, binwidth = NULL, origin = NULL, breaks = NULL, ... ) { StatBin$new( mapping = mapping, data = data, geom = geom…