library(dplyr)
system.time(df3 <- left_join(select(df1, lat, lon, id, time_hour),
                             select(df2, lat, lon, var1, var2, time_words),
                             by = c('lat', 'lon', 'time_hour' = 'time_words')
                             )
            )
#21.37 seconds