Reorder rows according to two column values in geom_tile() heatmap

Question

library(tidyverse)

df <- data.frame(country = c("USA", "USA", "USA", 
                             "UK", "UK",