This takes a dataframe as an argument, looks at all pairs of two columns in that data frame (country and year) and returns a column value of that pair in another data frame (the gini number).get_gini <- function(year, country){    GINI = 0    SUBSETTED_WITH_COUNTRY_NAME_NOW_WITH_YEAR <- inequality[inequality$Code== country & inequality$Year== year,]    GINI <- mean(as.numeric(SUBSETTED_WITH_COUNTRY_NAME_NOW_WITH_YEAR$Gini))    country_and_year<- totes_data[totes_data$totes_data == country & totes_data$year == year,]     country_and_year$GiniState1<-GINI    output<-country_and_year$GiniState1    output<-output[1]    if (is.na(output)){      output=0    }    else {      output = output    }    assign(ginilist,output, envir=globalenv())    rbind(output,ginilist)}
Lookup GINI by year and country
r