この Web ページで行うこと
◆ rbenv を使う場合の実行手順例
rbenv install --list rbenv install jruby-1.6.8 rbenv global jruby-1.6.8 rbenv rehash
sudo gem install --include-dependencies rsruby -- --with-R-dir=/usr/lib/R --with-R-include=/usr/share/R/include --with-opt-dir=/usr/share/R
R システムを呼び出して,CSV ファイルの読み込みと散布図の描画を行ってみる.ここでの テスト用データは,「データフレームからの散布図作成,画像ファイルに保存(R システム,ggplot,plot を使用)」に記述している Book1.csv を使っています
◆ Ubuntu の場合の実行手順例
【外部ページへのリンク】 https://kenai.com/projects/jruby/pages/PerformanceTuning
export R_HOME=/usr/lib/R ulimit -s unlimited irb require 'rubygems' require 'rsruby' r = RSRuby::instance r.eval_R(<<-RCOMMAND) X <- read.table("/tmp/Book1.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE); plot( X[,c("seq")], X[,c("USD")] ) pdf("hoge.pdf") plot( X[,c("seq")], X[,c("USD")] ) dev.off() RCOMMAND
Ruby で連想配列を作り,それを R に渡して,散布図を書く.
◆ Ubuntu の場合の実行手順例
export R_HOME=/usr/lib/R ulimit -s unlimited irb require 'rubygems' require 'rsruby' D = { "a"=>[1, 2, 3, 4, 5], "b"=>[100, 110, 105, 120, 125] } r = RSRuby::instance r.eval_R(<<-RCOMMAND) # write a graph in a window A <- matrix( c( #{D["a"].join(",")} ), 1, #{D["a"].size} ) B <- matrix( c( #{D["b"].join(",")} ), 1, #{D["b"].size} ) plot(A, B) # write a graph in a PDF file pdf("result.pdf", paper="a4") A <- matrix( c( #{D["a"].join(",")} ), 1, #{D["a"].size} ) B <- matrix( c( #{D["b"].join(",")} ), 1, #{D["b"].size} ) plot(A, B) dev.off() RCOMMAND