Rとウェブ解析：データフレームから項目名で抽出する例

データフレームからis.elementを使用し素早くデータを抽出する方法です。is.elementの簡易型は%in%です。

＜おすすめのRに関する書籍です＞

Rによる統計データ解析 | 小池 祐太, 村田 昇, 吉田 朋広

Amazonで小池 祐太, 村田 昇, 吉田 朋広のRによる統計データ解析。アマゾンならポイント還元本が多数。小池 祐太, 村田 昇, 吉田 朋広作品ほか、お急ぎ便対象商品は当日お届けも可能。またRによる統計データ解析もアマゾン配送商品なら通常配送無料。

www.amazon.co.jp

データの準備

適当な項目が思いつきませんでしたので、政府統計の総合窓口より平成23年社会生活基本調査スポーツの表21「スポーツの種類」を使用しています。
政府統計の総合窓口は多くの統計情報が公開されています。

http://www.e-stat.go.jp/SG1/estat/eStatTopPortal.do

「スポーツの種類」から総数に示されている項目名だけを抜き出し、オリジナルのDATA1と抜き出す項目名のDATA2を作成しました。

コマンド

###ライブラリーの読み込み#####
#XLConnectパッケージがなければインストール
if(!require("XLConnect", quietly = TRUE)){
  install.packages("XLConnect");require("XLConnect")
}
library("tcltk")
#####

###データの読み込み#####
###DATA1#####
sheetSelect <- 1 #読み込むシート番号を入力
selectABook <- paste(as.character(tkgetOpenFile(title = "DATA1ファイルを選択",filetypes = '{"xlsxファイル" {".xlsx"}}',initialfile = "*.xlsx")), sep = "", collapse =" ")
MasterAnaData <- loadWorkbook(selectABook)
Data1 <- readWorksheet(MasterAnaData, sheet = sheetSelect)

###DATA2#####
sheetSelect <- 1 #読み込むシート番号を入力
selectABook <- paste(as.character(tkgetOpenFile(title = "DATA2ファイルを選択",filetypes = '{"xlsxファイル" {".xlsx"}}',initialfile = "*.xlsx")), sep = "", collapse =" ")
MasterAnaData <- loadWorkbook(selectABook)
Data2 <- readWorksheet(MasterAnaData, sheet = sheetSelect)

###データの抽出#####
NewData <- subset(Data1, Data1[, 1] %in% Data2[, 1]) #抽出

###データの確認#####
NewData
項目 回数
9  ゴルフ(練習場を含む)    9
10                 柔道   10
11                 剣道   11
16 スキー・スノーボード   16
17     登山・ハイキング   17
18         サイクリング   18
19 ジョギング・マラソン   19

少しでも、ウェブや実験の解析が楽になりますように！！

＜おすすめのRに関する書籍です＞

Rによるベイジアン動的線形モデル (統計ライブラリー) | G.ペトリス, S.ペトローネ, P.カンパニョーリ, 和合 肇, 和合 肇, 萩原 淳一郎

AmazonでG.ペトリス, S.ペトローネ, P.カンパニョーリ, 和合 肇, 和合 肇, 萩原 淳一郎のRによるベイジアン動的線形モデル (統計ライブラリー)。アマゾンならポイント還元本が多数。

www.amazon.co.jp