とらりもん - Rによる画像処理(EBImage) Diff
- Added parts are displayed like this.
- Deleted parts are displayed
like this.
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
画像も同じように回転できる。
{{attach_view(2012_0606_Kubo.jpg)}}
>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)
!!!参考としたサイト
http://www.eml.ele.cst.nihon-u.ac.jp/~momma/wiki/wiki.cgi/R/R%E3%81%A7%E7%94%BB%E5%83%8F%E8%A7%A3%E6%9E%90%28EBImage%E7%B7%A8%29.html
http://mizupc8.bio.mie-u.ac.jp/pukiwiki/index.php?R%2F%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86#mf95e251
http://d.hatena.ne.jp/Rion778/20091210/1260414280* [[http://www.eml.ele.cst.nihon-u.ac.jp/~momma/wiki/wiki.cgi/R/R%E3%81%A7%E7%94%BB%E5%83%8F%E8%A7%A3%E6%9E%90%28EBImage%E7%B7%A8%29.html]]
* [[http://mizupc8.bio.mie-u.ac.jp/pukiwiki/index.php?R%2F%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86#mf95e251]]
* [[http://d.hatena.ne.jp/Rion778/20091210/1260414280]]
!!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
画像も同じように回転できる。
{{attach_view(2012_0606_Kubo.jpg)}}
>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)
!!!参考としたサイト
http://mizupc8.bio.mie-u.ac.jp/pukiwiki/index.php?R%2F%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86#mf95e251
http://d.hatena.ne.jp/Rion778/20091210/1260414280
* [[http://mizupc8.bio.mie-u.ac.jp/pukiwiki/index.php?R%2F%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86#mf95e251]]
* [[http://d.hatena.ne.jp/Rion778/20091210/1260414280]]