データフレームで「共通項目』『共通しない項目」を抽出?パッケージに頼らない方法を紹介します。
コマンド
###サンプルデータの作成#####
#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
少しでも、あなたの解析が楽になりますように!!