Rとウェブ解析:データフレームで「共通項目』『共通しない項目」を抽出?パッケージに頼らない方法を紹介します。


データフレームで「共通項目』『共通しない項目」を抽出?パッケージに頼らない方法を紹介します。


コマンド

###サンプルデータの作成#####
#Data1の作成
Data1 <- matrix(rep(c(4, 7, 8, 3, 11, 15), 1000), 100, 10)
colnames(Data1) <- paste("Col", 1:10, sep = "") #行名の付与
Data1 <- data.frame(Group = paste("Group", 1:100), Data1)
#Data2の作成
Data2 <- Data1[1:30,]
########

#Data1とData2で共通部分を抽出
InterData <- Data1[Data1[, 1] %in% Data2[, 1],] #共通部分の抽出
#write.csv(InterData, "共通データ出力.csv", row.names = FALSE) #コメントを取るとcsvでデータを出力
head(InterData)
    Group Col1 Col2 Col3 Col4 Col5 Col6 Col7 Col8 Col9 Col10
1 Group 1    4   11    8    4   11    8    4   11    8     4
2 Group 2    7   15    3    7   15    3    7   15    3     7
3 Group 3    8    4   11    8    4   11    8    4   11     8
4 Group 4    3    7   15    3    7   15    3    7   15     3
5 Group 5   11    8    4   11    8    4   11    8    4    11
6 Group 6   15    3    7   15    3    7   15    3    7    15

#Data1とInterDataで共通しない部分を抽出
DiffData <- Data1[!(Data1[, 1] %in% InterData[, 1]),] #非共通部分の抽出
#write.csv(DiffData, "非共通データ出力.csv", row.names = FALSE) #コメントを取るとでデータを出力
head(DiffData)
      Group Col1 Col2 Col3 Col4 Col5 Col6 Col7 Col8 Col9 Col10
31 Group 31    4   11    8    4   11    8    4   11    8     4
32 Group 32    7   15    3    7   15    3    7   15    3     7
33 Group 33    8    4   11    8    4   11    8    4   11     8
34 Group 34    3    7   15    3    7   15    3    7   15     3
35 Group 35   11    8    4   11    8    4   11    8    4    11
36 Group 36   15    3    7   15    3    7   15    3    7    15


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

スポンサードリンク

おすすめコンテンツ


スポンサードリンク