論文のプロットから元データを推定したかったのでごにょごにょした． image2data <- function(file, xmin,xmax, ymin,ymax){ ## file: 画像ファイル名 ## xmin, xmax: x軸の最小，最大値 ## ymin, ymax: y軸の最小，最大値 ## 要EBImage im <- readImage(fil…