time mismatch in calculating the slope of multiple subsets of a data frame

Question

I am trying to subset my data based on the year and country and calculate the regression coefficient for each one.

coefLM <- function(x) {
  coef(lm(log(re