Цвета переставляют ось X в 'likert' - как этого избежать?

Question

Когда я использую пакет 'likert' для графиков, добавление пользовательских цветов перестраивает параметры (ось X).Как мне избежать этого?

Я могу проиллюстрировать это примерами:

library(likert)
library(tidyverse)
data(pisaitems)
items29 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST25Q']
names(items29) <- c("Magazines", "Comic books", "Fiction", 
                    "Non-fiction books", "Newspapers")
l29 <- likert(items29)
plot(l29)

В этом примере категории расположены по порядку ( Ссылка )

Но когда я добавляю свои собственные цвета, этот порядок изменяется:

plot(l29) +
scale_fill_manual(values=c("#00aba4","#73d1cd","#e7e7e7","#bcbddc","#756bb1")) 

Также цвета не отображаются в указанном порядке.( Ссылка )

Как я могу контролировать порядок категорий и цветов?

С уважением

Answer 1

Я думаю, что решил проблему, используя опцию 'color' в первой строке.

Примерно так:

plot(129, colors = c("#00aba4","#73d1cd","#e7e7e7","#bcbddc","#756bb1"))

Мне нужно проверить, работает ли это в моем сценарии.