Я думаю, что сначала я не правильно понял ваш вопрос. Если вы хотите заменить значения в столбце символьными строками, а затем использовать их в алфавитном порядке в ggplot, вы можете попробовать, например:
library(tidyverse)
last %>%
mutate(place = forcats::fct_recode(place %>% as.character(),
'Europe' = '1',
'Asia' = '2',
'Africa' = '3',
'Latin America' = '4',
'North America' = '5') %>% as.character())
А затем используйте место в facet_grid. Следует обернуть их в алфавитном порядке. Посмотрите эту воспроизводимую версию:
library(tidyverse)
mtcars %>%
mutate(am = forcats::fct_recode(am %>% as.character(),
'Africa' = '1',
'Europe' = '0') %>% as.character()) %>%
ggplot(aes(cyl, mpg)) +
geom_point() +
facet_grid(~am)
Это работает так, как вы намеревались?