Intersecting multiple data frames
Change dataframe to load all the files into a list:

wd &lt;- "C:/all_your_dataframes_in_one_folder"

setwd(wd)

Then you get the list of files you want from your folder

files &lt;- list.files()

Put into a list with a loop

dflist &lt;- list()
for(i in 1:length(files)){
 dflist[[i]] &lt;- read.csv(files[i])
}


Then use tidyverse solution 

library(tidyverse)

map(dflist, ~.$GeneID) %&gt;% #creates a list just of the column of interest
    reduce(intersect)  #applies the intersect function cumulatively to the list