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

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

データの準備

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

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

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

コマンド

###&#12521;&#12452;&#12502;&#12521;&#12522;&#12540;&#12398;&#35501;&#12415;&#36796;&#12415;#####
#XLConnect&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("XLConnect", quietly = TRUE)){
  install.packages("XLConnect");require("XLConnect")
}
library("tcltk")
#####

###&#12487;&#12540;&#12479;&#12398;&#35501;&#12415;&#36796;&#12415;#####
###DATA1#####
sheetSelect <- 1 #&#35501;&#12415;&#36796;&#12416;&#12471;&#12540;&#12488;&#30058;&#21495;&#12434;&#20837;&#21147;
selectABook <- paste(as.character(tkgetOpenFile(title = "DATA1&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",filetypes = '{"xlsx&#12501;&#12449;&#12452;&#12523;" {".xlsx"}}',initialfile = "*.xlsx")), sep = "", collapse =" ")
MasterAnaData <- loadWorkbook(selectABook)
Data1 <- readWorksheet(MasterAnaData, sheet = sheetSelect)

###DATA2#####
sheetSelect <- 1 #&#35501;&#12415;&#36796;&#12416;&#12471;&#12540;&#12488;&#30058;&#21495;&#12434;&#20837;&#21147;
selectABook <- paste(as.character(tkgetOpenFile(title = "DATA2&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",filetypes = '{"xlsx&#12501;&#12449;&#12452;&#12523;" {".xlsx"}}',initialfile = "*.xlsx")), sep = "", collapse =" ")
MasterAnaData <- loadWorkbook(selectABook)
Data2 <- readWorksheet(MasterAnaData, sheet = sheetSelect)

###&#12487;&#12540;&#12479;&#12398;&#25277;&#20986;#####
NewData <- subset(Data1, Data1[, 1] %in% Data2[, 1]) #&#25277;&#20986;

###&#12487;&#12540;&#12479;&#12398;&#30906;&#35469;#####
NewData
&#38917;&#30446; &#22238;&#25968;
9  &#12468;&#12523;&#12501;(&#32244;&#32722;&#22580;&#12434;&#21547;&#12416;)    9
10                 &#26580;&#36947;   10
11                 &#21091;&#36947;   11
16 &#12473;&#12461;&#12540;&#12539;&#12473;&#12494;&#12540;&#12508;&#12540;&#12489;   16
17     &#30331;&#23665;&#12539;&#12495;&#12452;&#12461;&#12531;&#12464;   17
18         &#12469;&#12452;&#12463;&#12522;&#12531;&#12464;   18
19 &#12472;&#12519;&#12462;&#12531;&#12464;&#12539;&#12510;&#12521;&#12477;&#12531;   19

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