忍者ブログ
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。


# テスト用データフレーム。組み込みデータセットから
dat.arq <- airquality
dat.iris <- iris
dat.atn <- attenu
dat.or <- Orange # classが複数あるデータフレーム

# 作業スペース内のオブジェクトをclassつきでリストにする
objlist <- sapply(ls(), function(x) class(get(x)))## classが各1つずつのときはベクトル、複数もつものがあるときはリストで格納
objlist
# データフレームのオブジェクトだけ名前をとりだす
dfobjname <- names(objlist)[c(grep("data.frame", objlist))]
dfobjname
# データフレームのオブジェクトだけまとめる
dflist <- list()
for(i in 1:length(dfobjname)) {
  dflist[[i]] <- get(dfobjname[i])
}
names(dflist) <- dfobjname # リストの要素名をデータフレーム名にする
dflist

PR
Comment
Trackback
Trackback URL

Comment form
Title
Color & Icon Vodafone絵文字 i-mode絵文字 Ezweb絵文字  
Comment
Name
Mail
URL
Password
プロフィール
HN:
tao
HP:
性別:
非公開
職業:
会社員
趣味:
アウトドア、自転車、ジョギング、英語学習
自己紹介:
・千葉在住のサラリーマンです。データ分析っぽいことが仕事。
・今年英検1級取得。今はTOEIC高得点を目指して勉強中。
・興味のあることは野球、アウトドア、英語学習、統計、プログラミング、PC関係などなど。
ブログ内検索
freead
順位表
プロ野球データFreak
セリーグ順位表
パリーグ順位表