Вы также можете использовать base::abbreviate, если у вас нет имен в США. Это не даст вам аббревиатуры одинакового размера, если вы не увеличите минимальную длину.
base::abbreviate
state.name %>% base::abbreviate(minlength = 1)