ggplot2: Texts represented by numbers on a map and explained in the legend

Question

I would like to represent the location of different languages on a map, but since some languages have long names, I would like to represent the languages by the numbers assi