Rによる画像処理(EBImage)
2014/02/26 久保(書きかけ)
Installの仕方
ライブラリが必要なので以下のものをインストール。
sudo apt-get install imagemagick libmagickcore-dev libmagickwand-dev libgtk2.0-dev gtk2-engines-pixbuf//
Rを起動した後に下記のコードを入力
source("http://bioconductor.org/biocLite.R") biocLite("EBImage")
EBImageライブラリを読み出す。
library(EBImage)
使い方
行列の回転が簡単にできる。 (例)rotate
> dummy <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16),4,4) > dummy [,1] [,2] [,3] [,4] [1,] 1 5 9 13 [2,] 2 6 10 14 [3,] 3 7 11 15 [4,] 4 8 12 16 >rotate(dummy,90) [,1] [,2] [,3] [,4] [1,] 13 14 15 16 [2,] 9 10 11 12 [3,] 5 6 7 8 [4,] 1 2 3 4
画像も同じように回転できる。
>dummy2 <- readImage("http://pen.envr.tsukuba.ac.jp/~ryuiki/zemi/2012_0606_Kubo.jpg") >display(dummy2)
写真が表示されるはずである。 続いて時計回りに45度回転させる。
>dummy3 <- rotate(dummy2,45) >display(dummy3)
写真の中身も見ることができる。
>imageData(dummy3)
Keyword(s):
References:[とらりもんHOME]