R システムで，データフレームを PDF, SVG 形式で保存（R システム，gridExtra）

前準備

R システムのインストール

• Windows での R システムのインストール: 別ページ »で説明
• Ubuntu での R システムのインストール: 別ページ »で説明

gridExtra パッケージのインストール

R システムで，次のコマンドを実行し，インストールする．

このとき「Secure CRAN mirrors」のような，ミラーサイトの選択画面が出たときは「Japan」のものを選ぶ．

install.packages("gridExtra") 

CSVファイルを読み込み，データフレームに格納

1. (前準備) 使用する CSV ファイルの作成

   Book1.csv をダウンロード （参考： 「外国為替データ（時系列データ）の情報源の紹介」の Web ページ）

   以下の説明では、

   • Windowsの場合：　データファイル名： C:\R\Book1.csv
   • Linuxの場合：　データファイル名： /tmp/Book1.csv

   として説明を続ける．

   ※ 自前の CSV ファイルを使うときの注意： read.table() 関数を使うので， 属性名は英語になっていること．属性名は，CSV ファイルの第一行目に書いていること．

2. 使用する CSV ファイルの確認

   属性名が CSV ファイルの1行目に書かれていることを確認する．

   Book1.csv
3. R の起動
4. 「read.table」を用いて，CSV ファイルを R のデータフレームに読み込み

   次のコマンドを実行．

   ◆ Windows での動作手順例

   X <- read.table("C:/R/Book1.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE);
   

   ◆ Linux での動作手順例

   X <- read.table("/tmp/Book1.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE);
   

   R の read.table のオプション

   • X <- ・・・ 変数 X に読み込むという意味
   • C:/R/Book1.csv, "/tmp/Book1.csv" ・・・ 読み込む CSV ファイル名．Windows では区切りには「/」を使うことに注意．
   • header="TRUE" または header="FALSE" ・・・ 列ラベルが設定されているか
   • seq="," や seq="\" や seq=" " や ・・・ 列を区切る記号（CSV ファイルのときは「seq=","」）
   • na.string="NA" ・・・ Not a Number には "NA" を使うという意味
   • dec="." 　・・・　ファイルで使われている小数点記号（既定値は，ピリオド）
   • strip.white=TRUE ・・・ 個々のデータの先頭や末尾にある「空白文字」を取り除いて読み込む
   • skip=＜行数＞ ・・・ 読み飛ばし行数
   • nrow=＜行数＞ ・・・ 読み込み行数
   • (その他のオプション) dec: ファイルで使われている小数点記号を指定できる
5. オブジェクト X の確認

   次のコマンドを実行．

   edit(X);
   

   次のコマンドを実行．

   str(X)
   

データフレームからの PDF ファイル作成例

library(gridExtra) 
cairo_pdf(file="out%03d.pdf")
grid.draw(tableGrob(head(iris,10)))
dev.off()
getwd()

　

PDF ファイルが作成される

　

■ 外国為替データ（時系列データ） Book1.csv の例

library(gridExtra) 
cairo_pdf(file="out%03d.pdf")
X <- read.table("/tmp/Book1.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE);
grid.draw(tableGrob(head(X,10)))
dev.off()
getwd()

　

PDF ファイルが作成される

　

データフレームからの SVG ファイル作成例

library(gridExtra) 
svg(file="out%03d.svg")
grid.draw(tableGrob(head(iris,10)))
dev.off()
getwd()

　

SVG ファイルが作成される

　

■ 外国為替データ（時系列データ） Book1.csv の例

library(gridExtra) 
svg(file="out%03d.svg")
X <- read.table("/tmp/Book1.csv", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE);
grid.draw(tableGrob(head(X,10)))
dev.off()
getwd()

　

SVG ファイルが作成される