set.seed(2018)
df1 <- data.frame(claves = letters[1:3],    # a, b y c
                  stringsAsFactors = FALSE)
df2 <- data.frame(claves = sample(letters, 100, replace = TRUE), #100 letras al azar, algunas son a, b o c
                  estadisticos = rnorm(100),                     #Unos datos numéricos al azar que simulan los estadísticos
                  stringsAsFactors = FALSE)

df2[df2$claves %in% df1$claves, ]