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 [/code]


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

スポンサードリンク

スポンサードリンク