SIZE(18){COLOR(red){R にファイルを読み込む tips 集(暫定版)}}
~
~
R にファイルを読み込むのに苦労されるケースが多いようです。もとのファイルの
サイズ・書式が様々なこと、OS、ユーザインタフェイスの違いから、一筋縄ではいかないようですが、基本をまとめてみたらいかがでしょうか。なお一覧表 [[Rがインポート・エクスポートできるデータ形式]] をまず参考にして下さい。
~
一度にまとめるのも大変とおもわれますから、以下には主に r-help への投稿記事から参考になりそうなものを順次メモしておきます。ある程度溜ったら別頁に清書しましょう。
~
#contents
~
#article
** sas7bdat ファイルを読み込む、2011.08.22 [#d9d559f1]
-[[Really useful R package: sas7bdat:http://sas-and-r.blogspot.com/2011/07/really-useful-r-package-sas7bdat.html]]
** 複数のファイルを読み込み、コード中で生成したオブジェクトに付値する（初級者 Ｑ＆Ａ 記事より転載）、2005.01.27 [#rf2bbc16]
ファイル X00Y00.txt, X01Y00.txt, X00Y01.txt, X01Y01.txt (実体は同じ)があると仮定する。それらを X00Y00, X01Y00, X01Y00, X01Y01 という名前のオブジェクトに読み込む。オブジェクト名を表す文字列を paste, sprintf 関数で作り、それを名前に持つオブジェクトを assign 関数で作成・付値するのがキーポイント。
> for (i in 0:1) {
if (i < 10) I <- paste("0",i,sep="") else I <- as.character(i)
for (j in 0:1) {
if (j < 10) J <- paste("0",j,sep="") else J <- as.character(j)
oname <- paste("X",I,"Y",J, sep="") # 文字列 "X00Y00" 等を作る
fname <- paste(oname, ".txt", sep="") # ファイル名文字列 "X00Y00.txt" 等を作る
x <- read.table(fname) # ファイルを読み込み
colnames(x) <- c(paste("X_",oname,sep=""), paste("I_",oname,sep=""))
assign(oname, x) # 文字列 oname を名前に持ち、中身が x のオブジェクトを作る
}
}
> X00Y00
X_X00Y00 I_X00Y00
1 1 2
2 2 4
3 3 6
4 4 8
5 5 10
6 6 12
7 7 14
8 8 16
9 9 18
10 10 20
> X01Y01
X_X01Y01 I_X01Y01
1 1 2
2 2 4
3 3 6
4 4 8
5 5 10
6 6 12
7 7 14
8 8 16
9 9 18
10 10 20
===== 別の記述方法
for (i in 0:1) {
for (j in 0:1) {
oname <- sprintf("X%02iY%02i", i, j) # 文字列 "X00Y01" 等を作る
x <- read.table(sprintf("%s.txt", oname)) # ファイルを読み込み
colnames(x) <- c(sprintf("X_%s",oname), sprintf("I_%s",oname))
assign(oname, x) # 文字列 oname を名前に持ち、中身が x のオブジェクトを作る
}
}
** 現在の作業環境をファイルにセーブし、それを次回に復元する方法。save.image 関数 -- 2005.01.27 [#v3564e72]
R を q() 関数で終了する際、yes と答えると現在の作業環境(ie. 現在のワークスペース中のすべてのオブジェクト)は起動ディレクトリの [[XDR]] というバイナリ書式ファイル .Rdata に保存され、次回 R を起動するとそれが自動的に読み込まれる。もし作業途中の環境を独自に保存したければ save.image 関数を使う。
save.image(file = ".RData", version = NULL, ascii = FALSE,
compress = FALSE, safe = TRUE)
オプションでアスキーセーブ、圧縮ファイルにすることもできる。
'save.image()' は単に 'save(list = ls(all=TRUE), file = ".RData")' と同値で、'q("yes")' としたのと同じ(但し R を終了しない)となる。もし作業途中の環境を独自に保存したければ、例えば
save.image(file=".Rdata.20050127")
等とする。次回の R セッションをちょうどこの環境で始めたければ、R をオプション付き(.Rdata を自動読み込みしない)で
R --no-restore
と開始し(詳しくは help(Startup) 参照)、次に命令
load(".Rdata.20050127")
を実行する。
** R オブジェクトを Excel ファイルに落し、それを Excel で開く関数 -- from r-help, 2005.01.02 [#ie1b6ec4]
私は MSW を使いませんから、実際に試してはいません。 R オブジェクトを Excel ファイルに落し、それを R の中から Excel で開く関数のようです。by Eugene MeMelamud
excel <- function(x) {
# Excel の一時的ファイル名のオブジェクトを作る
tmpfilename <-paste(tempfile(c("abs")),".csv",sep="");
# 引数 x で指定されたオブジェクトをコンマで区切ったテーブルに変換
write.table(x, file=tmpfilename, sep=",")
# Excel をバックグラウンドで起動(Excel 関数の所在パスを変更する必要があるかも知れない)
system( paste('"C:?PROGRAM FILES?MICROSOFT OFFICE?OFFICE?EXCEL.EXE"',
tmpfilename ), wait=FALSE);
# Excel がファイルを開く前に、R が一時ファイル名オブジェクトを消しさらないように 5 秒休む
Sys.sleep(5);
unlink(tmpfilename) # 一時ファイル名オブジェクトを消す
}
** 複数のファイルを一括してデータフレームのリストに読み込む -- from r-help, 2004.12.29 [#xc869315]
次のような内容のデータファイル file1.txt, file2.txt があるとする。
A B C
X1 1 2 3
X2 4 5 6
D E F
Y1 7 8 9
Y2 10 11 12
これを一括してデータファイルのリストとして読み込む
> filenames <- c("file1.txt", "file2.txt") # 読み込むべきファイル名の文字ベクトル
> listoftables <- lapply(filenames, read.table)
> names(listoftables) <- filenames # ファイル名を成分名にする
> listoftables
$file1.txt
A B C
X1 1 2 3
X2 4 5 6
$file2.txt
D E F
Y1 7 8 9
Y2 10 11 12
> listoftables[[1]] # listoftables[["file1.txt"]] でも良い
A B C
X1 1 2 3
X2 4 5 6
> listoftables[[2]] # listoftables[["file2.txt"]] でも良い
D E F
Y1 7 8 9
Y2 10 11 12
** ファイル中の行数、ワード数、文字数を(ファイル全体を読み込むこと無しに)数える関数 [#a8776b4f]
(by R. A. O'Keefe, form r-help, 2004.12.09)
OS による違いとファイル名中の空白・特殊文字の扱いが結構難しいらしい。~
(ついでにいうと、次の関数 for.system の定義構文はびっくり、こんなのあり？)
for.system <-
if (.Platform$OS.type == "windows") {
function (s) {
i <- grep("[^-_:.A-Za-z0-9/????]", s)
s[i] <- sapply(s[i], function (s) paste("?"", s, "?"", sep=""))
s
}
} else {
function (s) gsub("([][)(}{'?";&! ?t?n])", "??????1", s)
}
wc <- function (s) {
r <- scan(pipe(paste("wc <", for.system(s)), open="r"), n=3, quiet=TRUE)
names(r) <- c("lines", "words", "chars")
r
}
> wc("Foo Bar") # ファイル名中に空白がある例
lines words chars # 集計結果
3 6 12
> wc("Drunkard's Walk")["chars"] # ファイル名中の特殊文字
chars
3633
- 「for.system の定義構文はびっくり、こんなのあり？」って，別の所にも書いたけど，if else はそれ自体式ですからなんでもありなんですよ。
a <- if (logical) 1 else 2 # なんてのと同じですから。
b <- (if (logical2) sin else cos)(1.23) # なんてのもありですし。
**データのセーブとロード [#w6d7bf9f]
>[[MKR]] (2004-11-29 (月) 17:15:41)~
~
データをファイルにセーブする save() 関数は既定では "XDR" というバイナリー書式でセーブする。これはバイナリファイルになりエディターでは編集できないが、書き込み、読み込み、ファイルサイズともに相当短縮され、OS によらず読み込みができる。一方 ASCII 書式でセーブすると書き込み、読み込み、ファイルサイズが相当大きくなる。頻繁に使う巨大データファイルは一旦 R に読み込み、 "XDR" 書式でセーブするのが得。
> xxx <- xx <- x <- rnorm(10e6) # 百万個の実数データ
# 書き込み速度は 11.5:1
> gc(); system.time(save(xx, file="x.txt", ascii=TRUE)) # アスキー書式でセーブ
[1] 23.68 2.34 26.45 0.00 0.00
> gc(); system.time(save(xxx, file="x.xdr")) # XDR 書式でセーブ(拡張子は実は任意)
[1] 2.06 0.74 2.96 0.00 0.00
# 読み込み速度は 21.7:1
> rm(xx); gc(); system.time(load("x.txt")); identical(x, xx) # 読み込み
[1] 62.62 0.62 63.27 0.00 0.00~
[1] TRUE
> rm(xxx); gc(); system.time(load("x.xdr")); identical(x, xxx) # 読み込み
[1] 2.88 0.29 3.66 0.00 0.00
[1] TRUE
ちなみにファイルサイズは 2.4:1
80000050 2004-11-29 17:12 x.xdr
191603179 2004-11-29 17:12 x.txt
さらに save() 関数をオプション compress=TRUE で実行するとファイルは圧縮されて保存されるが、当然読み書き速度は遅くなるが、それでも読み込みならアスキーファイルよりはるかに早い。
> gc(); system.time(save(x, file="x.cxdr", compress=TRUE))
[1] 39.75 0.94 40.97 0.00 0.00
> gc(); system.time(load("x.cxdr"))
[1] 7.20 0.34 7.75 0.00 0.00
ファイルサイズは 6853838 で非圧縮時の 8.6%、アスキーファイルに比べると 3.6%。
//
#comment
**アドオンパッケージ foreign を使って外部システムファイルを読み込む [#ac166a2e]
>[[MKR]] (2004-11-20 (土) 06:46:35)~
~
他頁より転載。アドオンパッケージ foreign には他システムのファイルを R に読み込むための関数がいくつも定義されています。~
~
COLOR(red){foreign}(Minitab, S, SAS, SPSS, Stata, ... で保存されたデータを読み込む)パッケージ中のオブジェクト一覧~
~
|項目| 説明 |
|lookup.xport| SAS XPORT 形式ライブラリーのルックアップ情報|
|S3 read functions | S3 バイナリ・ファイルの読み込み|
|read.dta| Stata バイナリ・ファイルの読み込み|
|read.epiinfo| Epi Info データ・ファイルの読み込み|
|read.mtp| Minitab ポータブル・ワークシートの読み込み|
|read.spss | SPSS データ・ファイルの読み込み|
|read.ssd| SAS permanent dataset, via read.xport経由で SAS permanent データセットよりデータフレームを取得|
|read.xport| SAS XPORT 形式ライブラリーの読み込み|
|write.dta| Stata バイナリ形式ファイルへの書き出し|
//
#comment
**SPSS のファイルを R に読み込む (from r-help, 2004.11.18) [#za27691a]
>[[MKR]] (2004-11-18 (木) 17:30:11)~
~
SPSS のデータファイルを R に読み込む方法~
>>Date: Tue, 16 Nov 2004 09:49:45 -0800 (PST)
>> From: gauri <gdsr15@yahoo.com>
>>Hi,
>>I was wondering as to how I could convert SPSS data imported to R into
tabular form. In the sense, direct usage of read.table( ) doesnt help.
>>Thanks
Hi Gauri:
There are several ways of doing that. Easiest in my opinion is to save the
SPSS data into "txt", or "csv" file and read it directly into R using
read.table() function to read the txt or csv data. See ?read.table for more
information, or read the data input output section of the user manual. The
second way is to use library(foreign) and then read the data directly using
read.spss. For more information, do library(foreign) and then ?read.spss
Hope this helps,
Arin Basu
//
-後半に書かれている方法を勧めます。普通に保存したファイル（テキストファイルではない。SPSS ではシステムファイルと呼んでいたかな。要するに，SPSSのデータフォーマット）が読めます。しかも簡単です。
> library(foreign)
> d <- read.spss("spss-data.sav", use.value.labels=TRUE, to.data.frame=TRUE)
> d
Sex X1 Class
1 1 2.1 a
2 2 3.4 b
3 1 4.2 c
4 2 1.5 b
5 1 4.2 c
6 1 5.4 c
7 1 5.7 b
8 2 6.5 c
9 1 2.3 a
10 2 4.1 c
ほかのソフトとのインポート・エクスポートは[[foreign(Minitab, S, SAS, SPSS, Stata, ... で保存されたデータを読み込む)パッケージ中のオブジェクト一覧]]~
[[S-plus/R Function Finder:http://biostat.mc.vanderbilt.edu/s/finder/finder.html]]を見ると，Hmisc に spss.get というのがある。 -- [[青木繁伸]] &new{2004-11-19 (金) 10:36:27};
#comment
** Excel からコピーしたセル範囲を R に読み込む (何でも掲示版の青木繁伸さんの記事を転載) [#t6e23ef4]
エクセルのセル範囲を R に読み込むために，今まではわざわざファイルに書き出してやっていましたが，面倒なので，簡単なラッパーを作ってみました。
from.excel <- function(nc)
{
matrix(scan(""), byrow=TRUE, nc=nc)
}
エクセルで必要な部分をコピーします。
x <- from.excel(2)
などとして，プロンプトが出たらペーストします。
入力の終わりはMacintoshだとcommand+.
汎用関数にする価値もないのでこのまま。
- ?scan によれば Linux だと CTRL+D, MS Windows では CTRL+Z で終了すれば良いようですね。
- Windows だと，入力元として"clipboard"が使えると，中澤さんが書いていた。
- 船尾さんの http://cwoweb2.bai.ne.jp/%7ejgb11101/files/ISM_symposium_R_2006.pdf のスライドNo.46 を見ていて，そうだ，Mac だって，ヘッダ付きのデータフレームとして読めるはずだよねと，やってみました。~
ヘッダーを含めて範囲を指定してコピーし，コンソールに以下のように入力し，プロンプトが出たら，ペーストする。 -- [[青木繁伸]] &new{2006-12-12 (火) 23:30:30};
> x <- read.delim(stdin(), header=TRUE) # 入力元に stdin() を指定する
0: x y z 0: が表示されたらペースト
1: 1 1 1
2: 2 1.414213562 4
3: 3 1.732050808 9
4: 4 2 16
5: 5 2.236067977 25
6: 入力が尽きたら，リターンキーを押す
> x
x y z データフレームの出来上がり
1 1 1.000000 1
2 2 1.414214 4
3 3 1.732051 9
4 4 2.000000 16
5 5 2.236068 25
- Linux でも同様の方法が使えるかと試してみましたが、どうもうまくいかない、試行錯誤で次の方法ならうまくいくようだとわかりました。OpenOffice スプレッドシート、Emacs 編集画面、シェル画面、いずれからのコピーもうまくいくようです。「Ctrl+D 二回で終了」というのが良く理解できない? このやりかた Windows, Mac でもつかえるのでしょうか？ [[間瀬茂]] -- &new{2007-05-30 (水) 19:47:13};
> x <- read.table(file("clipboard"), header=TRUE) # clipboard 内容を入力
> x # 勝手に入力され、終了する
R1 R2 R3
C1 A 1 1.2
C2 B 2 2.5
C3 C 3 -0.9
> y <- read.table(file("stdin"), header=TRUE) # paste 後 Ctrl+D を「二回」入力して終了させる
> y
R1 R2 R3
C1 A 1 1.2
C2 B 2 2.5
C3 C 3 -0.9
> matrix(scan(file("stdin")), 3,3, byrow=TRUE)
1 1.2 0
2 2.5 1
3 -0.9 1 # paste 後 Ctrl+D 二回で終了させる
Read 9 items
[,1] [,2] [,3]
[1,] 1 1.2 0
[2,] 2 2.5 1
[3,] 3 -0.9 1
> matrix(scan(file("clipboard")), 3,3, byrow=TRUE) # clipboard 内容を入力
Read 9 items
[,1] [,2] [,3]
[1,] 1 1.2 0
[2,] 2 2.5 1
[3,] 3 -0.9 1
- Mac OS X だと read.table(pipe("pbpaste")) でいいんですね。 -- [[k33]] &new{2009-05-02 (土) 07:47:27};
#comment
**上(下)三角行列としてファイルを読み込む (from r-help, 2004.11.07) [#n2006c0d]
> (2004-11-07 (日) 19:43:49)~
~
次のようなデータファイル "data.txt" を下三角行列として読み込む~
1.000
0.591 1.000
0.356 0.350 1.000
-0.098 0.072 0.380 1.000
0.573 0.408 0.382 0.062 1.000
0.156 0.232 0.517 0.424 0.303 1.000
0.400 0.414 0.611 0.320 0.401 0.479 1.000
0.282 0.375 0.512 0.346 0.308 0.463 0.605 1.000
0.519 0.484 0.467 0.167 0.455 0.311 0.574 0.557 1.000
> x <- scan("data.txt")
Read 45 items
> x
[1] 1.000 0.591 1.000 0.356 0.350 1.000 -0.098 0.072 0.380 1.000
[11] 0.573 0.408 0.382 0.062 1.000 0.156 0.232 0.517 0.424 0.303
[21] 1.000 0.400 0.414 0.611 0.320 0.401 0.479 1.000 0.282 0.375
[31] 0.512 0.346 0.308 0.463 0.605 1.000 0.519 0.484 0.467 0.167
[41] 0.455 0.311 0.574 0.557 1.000
> y <- data.matrix(read.table("data.txt", fill = TRUE, col.names = 1:9))
> y
X1 X2 X3 X4 X5 X6 X7 X8 X9
1 1.000 NA NA NA NA NA NA NA NA
2 0.591 1.000 NA NA NA NA NA NA NA
3 0.356 0.350 1.000 NA NA NA NA NA NA
4 -0.098 0.072 0.380 1.000 NA NA NA NA NA
5 0.573 0.408 0.382 0.062 1.000 NA NA NA NA
6 0.156 0.232 0.517 0.424 0.303 1.000 NA NA NA
7 0.400 0.414 0.611 0.320 0.401 0.479 1.000 NA NA
8 0.282 0.375 0.512 0.346 0.308 0.463 0.605 1.000 NA
9 0.519 0.484 0.467 0.167 0.455 0.311 0.574 0.557 1
> is.matrix(y) # read.table 関数経由のため行・列ラベルがついているが行列である
[1] TRUE
別法
> m <- matrix(0,9,9)
> m[upper.tri(m,diag=TRUE)] <- x # 直接 m[lower.tri(m,diag=TRUE)] 適用は何故か失敗
> m
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 0.591 0.356 -0.098 0.573 0.156 0.400 0.282 0.519
[2,] 0 1.000 0.350 0.072 0.408 0.232 0.414 0.375 0.484
[3,] 0 0.000 1.000 0.380 0.382 0.517 0.611 0.512 0.467
[4,] 0 0.000 0.000 1.000 0.062 0.424 0.320 0.346 0.167
[5,] 0 0.000 0.000 0.000 1.000 0.303 0.401 0.308 0.455
[6,] 0 0.000 0.000 0.000 0.000 1.000 0.479 0.463 0.311
[7,] 0 0.000 0.000 0.000 0.000 0.000 1.000 0.605 0.574
[8,] 0 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.557
[9,] 0 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000
> m <- t(m) # 下三角行列にするには転置する
> m
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0
[2,] 0.591 1.000 0.000 0.000 0.000 0.000 0.000 0.000 0
[3,] 0.356 0.350 1.000 0.000 0.000 0.000 0.000 0.000 0
[4,] -0.098 0.072 0.380 1.000 0.000 0.000 0.000 0.000 0
[5,] 0.573 0.408 0.382 0.062 1.000 0.000 0.000 0.000 0
[6,] 0.156 0.232 0.517 0.424 0.303 1.000 0.000 0.000 0
[7,] 0.400 0.414 0.611 0.320 0.401 0.479 1.000 0.000 0
[8,] 0.282 0.375 0.512 0.346 0.308 0.463 0.605 1.000 0
[9,] 0.519 0.484 0.467 0.167 0.455 0.311 0.574 0.557 1
> m[upper.tri(m,diag=TRUE)] <- x # 対称行列が欲しければ更に
> m
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1.000 0.591 0.356 -0.098 0.573 0.156 0.400 0.282 0.519
[2,] 0.591 1.000 0.350 0.072 0.408 0.232 0.414 0.375 0.484
[3,] 0.356 0.350 1.000 0.380 0.382 0.517 0.611 0.512 0.467
[4,] -0.098 0.072 0.380 1.000 0.062 0.424 0.320 0.346 0.167
[5,] 0.573 0.408 0.382 0.062 1.000 0.303 0.401 0.308 0.455
[6,] 0.156 0.232 0.517 0.424 0.303 1.000 0.479 0.463 0.311
[7,] 0.400 0.414 0.611 0.320 0.401 0.479 1.000 0.605 0.574
[8,] 0.282 0.375 0.512 0.346 0.308 0.463 0.605 1.000 0.557
[9,] 0.519 0.484 0.467 0.167 0.455 0.311 0.574 0.557 1.000
//
- 読み込みだけならread.table("data.txt",sep=" ",fill=T)でもできるような -- [[たけ]] &new{2008-12-26 (金) 19:00:58};
#comment
**read.fwf() 関数の skip が変(R2.0.0 のバグ。R2.0.1 で fix の予定) [#ge74e79f]
>[[なぜ？]] (2004-11-04 (木) 10:02:50)~
「一行の各欄の桁数を指定して読み込む、 read.fwf() 関数」の通りにやってみたんですが、
> x <- read.fwf("test.txt", width=c(2,2,3), skip=1, n=4)
だと反応が返ってきません。
> x <- read.fwf("test.txt", width=c(2,2,3), skip=1)
とすると、x の内容は
> x
V1 V2 V3
1 1 23 456
2 12 34 5
です。コメント行を無視してさらに1行読み飛ばしているので、これはこれでいいような気もしますが、
> x <- read.fwf("test.txt", width=c(2,2,3), skip=2)
だと、下のようなエラーが返ってきてしまいます。
Error in read.table(file = FILE, header = header, sep = sep, as.is = as.is, :
no lines available in input
どうも、skip で指定した数の2倍にあたる行数を読み飛ばしているようなんですが、バグなんでしょうか？
日本語版 R2.0.0 を使っています。Win XP と Win ME で同じ症状でした。
//
-気づくのが遅くなりましたが、元記事は R 1.9 で確認したものです。現在の R 2.0 では確かにおっしゃるように挙動不審ですね。はてバグでしょうか。最近の r-help には関連する報告はありませんが。 -- [[元記事投稿者]] &new{2004-11-08 (月) 13:19:32};
-read.fwfの最後(テンポラリから取込)のread.tableのskip=skipの引数を除外するのが意図する動作です.元記事者はバグレポートをどうぞ. -- [[なかま]] &new{2004-11-08 (月) 13:42:58};
-どうも n 引数を与えるとエンドレスループに入ってしまうようですね。ついでに 1.9.1 と 2.0.0 ではコードに大幅な変更があったようなので、その際バグが紛れ込んだのでしょうか。一応 CRAN のバグレポートで報告しておきました。 -- [[元記事投稿者]] &new{2004-11-08 (月) 16:08:27};
-さっきバグレポートしたと思ったら、すでに r-help に R 教授が「確かにバグだ」と報告していました。素早い！彼のコードでしょうか。バグの原因を指摘できなかったのが淋しい。 -> おっと早とちり、r-help ではなく、R-bugs メイリングリストと私個人あてに届いたメイルでした。-- [[元記事投稿者]] &new{2004-11-08 (月) 17:27:51};
-「元記事者」って私のこと？ひぇぇ！英作文、どうしよう！？と動揺したのも束の間、既に報告してくださったんですね。ありがとうございます。 -- [[なぜ？]] &new{2004-11-08 (月) 18:17:23};
-R 2.0.1 でフィックスされる(もしくはすでにフィックスされた)そうです。日本発のバグレポートは稀な例でしょうから、「貴重な発見」といえましょうか。 -- [[元記事投稿者]] &new{2004-11-08 (月) 19:21:42};
-おいしい所を奪われた模様ですよ＞なぜ？さん:-) -- [[なかま]] &new{2004-11-08 (月) 21:05:40};
r31818 | ripley | 2004-11-08 17:36:54 +0900 (Mon, 08 Nov 2004) | 1 line
Changed paths:
M /branches/R-2-0-patches/NEWS
M /branches/R-2-0-patches/src/library/utils/R/read.fwf.R
M /branches/R-2-0-patches/tests/reg-tests-2.R
M /branches/R-2-0-patches/tests/reg-tests-2.Rout.save
port r31817 (fix PR#7350) from trunk
------------------------------------------------------------------------
r31817 | ripley | 2004-11-08 17:34:29 +0900 (Mon, 08 Nov 2004) | 3 lines
Changed paths:
M /trunk/NEWS
M /trunk/src/library/utils/R/read.fwf.R
M /trunk/tests/reg-tests-2.R
M /trunk/tests/reg-tests-2.Rout.save
fix PR#7350
formatting issues in read.fwf
-う〜ん、残念！などと言ってみたりして。早速 fix されるようで、良かったです。いつも使うばかりだったので、こんな形でも少し貢献したことになるのかしら、と思うと嬉しい限りです。 -- [[なぜ？]] &new{2004-11-08 (月) 21:35:43};
-[[日本産バグレポート:http://r-bugs.biostat.ku.dk/cgi-bin/R?expression=From:.*%5C.jp;user=guest]]他にもあるとは思いますが. -- [[なかま]] &new{2004-11-10 (水) 12:10:59};
-本当ですね。ここにもスパムメールがたくさん届いているようだな、と思ったら差出人 R-core@R-project.org からワーム WORM_BAGLE.AT 付きのメイルが届いていました。 -- &new{2004-11-10 (水) 15:49:11};
-いまごろ気づきましたが、私のところに外国から大量のスパム・病原菌汚染メールが届くのは R 関連のMLの投稿記事記載のメイルアドレスを誰かが集めて商売にしているのでしょうか？ -- [[元記事投稿者]] &new{2004-11-11 (木) 17:28:25};
-spamは今年の春くらいから爆発的に増えたようです.ウイルス,スパイウェア,検索エンジンなど広まり方は沢山あると思います.そういった行為が無意味であると統計的に証明出来れば減る? -- [[なかま]] &new{2004-11-13 (土) 23:33:15};
#comment
**一行の各欄の桁数を指定して読み込む、 read.fwf() 関数 (2004-10-25 (月) 09:32:21) [#lafb9409]
~
read.fwf (Read Fixed Width Format Files) 関数はファイルの各行の数値の桁数を指定してデータフレームとして読み込む。総桁数以上は無視されるので、例えば行末にコメントを置いておくこともできる。指定桁数が 0 だったり、該当欄がすべて半角空白だと NA 値が置かれる。
テスト用テキストファイル test.txt (最初と最後にコメント行、各行の最後にコメント)
# comment 1
1234567 # comment 2
1 234567 # comment 3
12345 67 # comment 4
# comment 5
~
冒頭の一行を無視し、総計 4 (1+3) 行を読み込む。欄の桁数は 2,2,3 とする。
> x <- read.fwf("test.txt", width=c(2,2,3), skip=1, n=4)
> x
V1 V2 V3
1 12 34 567
2 1 23 456
3 12 34 5
該当する欄が半角空白のみの時は NA とされる
> x <- read.fwf("test.txt", width=c(2,1,2,2), skip=1, n=4)
> x
V1 V2 V3 V4
1 12 3 45 67
2 1 2 34 56
3 12 3 45 NA
欄桁数 0 は NA 値とされる
> x <- read.fwf("test.txt", width=c(2,0,2,2), skip=1, n=4)
> x
V1 V2 V3 V4
1 12 NA 34 56
2 1 NA 23 45
3 12 NA 34 5
行名、列名ラベルを付ける例
> x <- read.fwf("test.txt", width=c(2,2,3), skip=1, n=4,
row.names=c("case1","case2","case3"))
> x
V1 V2 V3
case1 12 34 567
case2 1 23 456
case3 12 34 5
> x <- read.fwf("test.txt", width=c(2,2,3), skip=1, n=4,
row.names=c("case1","case2","case3"),
col.names=c("A","B","C"))
> x
A B C
case1 12 34 567
case2 1 23 456
case3 12 34 5
数値以外の文字が入っていても良いが、文字ではなく、因子と解釈される
# comment 1
AB123456 # comment 2
HI1 23456 # comment 3
ab 987654 # comment 4
# comment 5
> x <- read.fwf("test.txt", width=c(2,2,2), skip=1, n=4)
> x
V1 V2 V3
1 AB 12 34
2 HI 1 23
3 ab 9 87
> str(x)
`data.frame': 3 obs. of 3 variables:
$ V1: Factor w/ 3 levels "AB","HI","ab": 1 2 3
$ V2: num 12 1 9
$ V3: int 34 23 87
//
#comment
**xls 形式のファイルをデータフレームとして読み込む (gregmisc パッケージ中の read.xls() 関数) [#oaf8f90f]
> (2004-10-13 (水) 16:21:00)~
~
gregmisc パッケージ中の read.xls() 関数は MS Excel の xls ファイルをデータフレームとして読み込む。file.path() 関数の使用例にも注意。~
> library(gregmisc) # gregmisc パッケージを読み込む
> library(help=gregmisc) # gregmisc パッケージ中のオブジェクト一覧
> ?read.xls # read.xls() 関数のヘルプ表示
read.xls package:gregmisc R Documentation
Read Excel files
Description:
Reads a Microsoft Excel file into a data frame
Usage:
read.xls(xls, sheet=1, verbose=FALSE, ...)
Arguments:
xls: name of the Microsoft Excel file
sheet: number of sheet within the Excel file from which data are to
be read
verbose: logical flag idicating whether details should be printed as
the file is processed.
...: additional arguments to read.table. The defaults of read.csv
are used.
Details:
This function works translating the named Microsoft Excel file
into a temporary .csv file, using Greg Warnes' xls2csv perl script
(installed as part of the gregmisc package).
Note that, in the conversion to csv, strings will be quoted. This
is a problem if you are trying to use the 'comment.char' option of
'read.table' since the first character of all lines (including
comment lines) will be "?"" after conversion.
Value:
a data frame
> example(read.xls) # その実行例
rd.xls> xlsfile <- file.path(.path.package("gregmisc"), "xls",
"iris.xls") # 例示用 xls ファイル "iris.xls" のパス検索
rd.xls> xlsfile # 結果
[1] "/usr/local/lib/R/site-library/gregmisc/xls/iris.xls"
rd.xls> iris <- read.xls(xlsfile) # iris.xls ファイルを読み込む
rd.xls> head(iris) # データフレームの先頭 6 行を表示
Sepal.Length Sepal.Width Petal.Length Petal.Width Species X
1 1 5.1 3.5 1.4 0.2 setosa
2 2 4.9 3.0 1.4 0.2 setosa
3 3 4.7 3.2 1.3 0.2 setosa
4 4 4.6 3.1 1.5 0.2 setosa
5 5 5.0 3.6 1.4 0.2 setosa
6 6 5.4 3.9 1.7 0.4 setosa
//
-FmtJapan2を使えるようにすれば日本語ExcelもUnix上で直接読めますね。 -- [[なかま]] &new{2004-10-14 (木) 08:11:33};
-パッケージ RODBC を使っても読めるらしい-- &new{2004-10-24 (日) 12:00:03};
> library(RODBC)
> z <- odbcConnectExcel("c:??mydata.xls")
> myframe <- sqlFetch(z, "mysheet1")
> close(z)
#comment
~
**ワーキングディレクトリ中のファイルを、ファイル名を指定して確認 file.choose() [#fcb8474f]
読み込むべきファイルのパス付きの正確な名前を知ることが困難な場合がある(特に MS Windows?) 。file.choose() 関数はファイル名を入力し、パス付きのファイル名をインタラクティブに得る関数である。一括して列挙するには list.files() 関数を使う。source(file.choose()) といった使い方もできますね。-- (2004-10-12 (火) 18:37:06)~
~
John Fox <jfox <at> mcmaster.ca> writes:~
>> You got several useful suggestions for what you may have done wrong. I often~
>> find that it's easier to use read.table(file.choose()) and to navigate to~
>> the file in the resulting dialog than to type the path to the file.~
Related to this, you could issue the command exactly as shown without~
any arguments at all:~
file.choose()
from the R console, navigate to the correct file and it will return the~
correct text representation of the filename to use in your read.table.~
For example, below I navigated to the AUTHORS file in the rw1091~
R distribution:~
R> file.choose()
[1] "C:??Program Files??R??rw1091??AUTHORS"
This should help you decipher whether you got the path wrong, the filename~
wrong, etc.~
//
#comment
~
~
**欄数が行毎に不揃いなファイルを読み込む read.delim() [#j1ced2c1]
read.table() 関数の変種の read.delim() 関数は（既定では）タブで区切られた、欄が行毎に不揃いのファイルを適正に読み込むのに使える。該当欄が欠損している時は、NA 値が補われる。
r-help, Petr Pikal, 2004.10.12
~
On 11 Oct 2004 at 11:45, wfang wrote:
>> Hi,
>> I tried to read some unbalance data (with different number if rows)
>> using x<- read.table("filename", header = true) command, but the
>> program refuses to read the table. Could you tell me why this is
Hallo
Your OS, your R version is missing, but having this:
a b d e
1 1 1 1
2 2 2 2
3 3 3
4 4
5 5
6
read.delim("clipboard")
produces
> mydata<-read.delim("clipboard")
a b d e
1 1 1 1 1
2 2 2 2 2
3 3 NA 3 3
4 4 NA 4 NA
5 5 NA 5 NA
6 NA NA 6 NA
so it ***do not refuse*** to read the data. I do not expect some
dwarf climbs out from your computer and says he will not read
your data. Or is he?
?read.table
gives you more details about how to read some data.
#comment
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
