EBImageといえばこれだったが、図に文字を描けるdrawtextが使えなくなっていたのでヒートマップにゴリ押しした結果がこちら。 library(EBImage) # システムファイルからサンプルデータを読み出す。 nuc <- readImage(system.file("images", "nuclei.tif", pa…