Работа с «пустыми полями» при создании графика Ликерта

Question

В последнее время я много работал с сюжетами Ликерта. На этот раз все немного по-другому, потому что мой набор данных не очень красивый и чистый. У меня есть много людей, которые оставили поля, а также люди, которые вообще не отвечали. Теперь я хочу создать свой график с разными группами, но получаю сообщение об ошибке:

> group_likert = likert(g[,3:12], grouping=g[,2])
Warnmeldung:
In likert(g[, 3:12], grouping = g[, 2]) :
items parameter contains non-factors. Will convert to factors

Я полагаю, что это сообщение ссылается на значения null в моем csv-листе.

Вот мой код (который отлично работал с чистым набором данных в другом случае):

library(likert)
g<-read.csv2("C:/Users/felix/OneDrive/Documents/R/Umfrage_R.csv", sep=";", dec=",", header=TRUE)
both<-g$Position

g <-  within(g, {
proximity_work <- factor(proximity_work, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  continuity_care <- factor(continuity_care, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  fulldaycare <- factor(fulldaycare, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  halfdaycare <- factor(halfdaycare, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  halfdaycare_lunch <- factor(halfdaycare_lunch, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  extendedopening_morning <- factor(extendedopening_morning, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  extendedopening_evening <- factor(extendedopening_evening, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  allyear <- factor(allyear, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
  flexibility_entryexit <- factor(flexibility_entryexit, levels=1:4, labels=c("Wichtig", "Eher wichtig", "Eher unwichtig", "Unwichtig"))
} )

group_likert = likert(g[,3:12], grouping=g[,2])
plot(group_likert)

Мой результат немного странный:

У вас есть идеи, как решить эту проблему? Спасибо большое за помощь. Бест, Феликс