Preservando a ordem dos fatores em scale_y_discrete com str_wrap em ggplot2 para dados Likert

Estou tentando criar um gráfico de calor para dados em escala Likert usando o likertpacote em R e quero agrupar os rótulos do eixo y str_wrappara torná-los mais legíveis. Porém, quando utilizo str_wrapwith scale_y_discrete, a ordem dos rótulos muda para ordem alfabética ao invés de preservar a ordem original.

MRE com e sem comentários de scale_y_discrete(labels = function(x) str_wrap(x, width = 5)):

library(likert)
library(ggplot2)
library(stringr)
library(dplyr)

diamonds %>%
  select(cut) %>%
  as.data.frame() %>%
  likert() %>%
  plot(., type = "heat") +
  # scale_y_discrete(labels = function(x) str_wrap(x, width = 5))
  NULL

Quando eu uso scale_y_discrete(labels = str_wrap), os rótulos do eixo y são agrupados corretamente, mas a ordem dos rótulos é alterada para ordem alfabética. Quero preservar a ordem original dos rótulos como em original_levels. Pergunta:

Como posso agrupar os rótulos do eixo str_wrapy preservando a ordem original ggplot2?

Tenho certeza de que o problema é causado pela conversão de cutum fator em uma classe de personagem. No entanto, não consigo resolver esse problema.

Qualquer ajuda ou orientação sobre como conseguir isso seria muito apreciada!