#2つデータフレーム内の共通項目で、和集合・積集合(共通部分)・差集合を抽出する関数
only <- function(df.a, df.b){
	common.col <- intersect(colnames(df.a), colnames(df.b))
	df.a <- df.a[colnames(df.a)==common.col][,1]
	df.b <- df.b[colnames(df.b)==common.col][,1]
	only.a <- setdiff(df.a, df.b)
	only.b <- setdiff(df.b, df.a)
	return(list(only.a=only.a, only.b=only.b))
}

# 使用方法
a <- data.frame(matrix(seq(1,20, by = 2), ncol=1))
b <- data.frame(matrix(seq(1,20, by = 3), ncol=1))
colnames(a) <- "col.1"
colnames(b) <- "col.1"
only(a, b)