Как добавить пользовательскую легенду в ggplot2?

Question

У меня есть следующий код для моего ggplot, в котором некоторые страны имеют одинаковый цвет на горизонтальной гистограмме.

p <- ggplot(sample, aes(x = reorder(sample$Country, sample$size), y = sample$size,fill = sample$Country, 
    label = sample$size )) + 
    geom_bar(stat = "identity") + 
    ggpubr::rotate_x_text() + 
    coord_flip() + 
    geom_text(hjust = -0.1)+ 
    theme(legend.position = "none") + 
    scale_fill_manual("legend", values = c("United States" = "#00CCFF", "India" = "#33FF00", "China" = 
    "#FFFF00", "Germany" = "#000099", "Russia" = "#CC0000", "Japan" = "#FF66CC","France" ="#666600", 
    "United Kingdom" = "#00CCFF", "Italy" = "#FF9933", "Brazil" = "#FFFF00", "Spain" = "#993300", "Iran" 
    = "orange", "Mexico" = "#003333","Poland" = "#33FF00", "Turkey" = "orange", "Indonesia" = 
     "#FFFF00","Saudi Arabia" = "#00CCFF", "NetherLands" = "#993300", "Canada" = "#666600"))

Как я могу закодировать пользовательскую легенду, подобную этой, в ggplot?