Das habe ich gecheckt. Die Zahlen sind überall gleich, also in "Erhobene Daten" und in R.
Für die Erstellung des Plots mit dem Likert-Package habe ich u.A. folgenden Code verwendet.
i <- 1
while(i<=ncol(Attitudes_Learning_Arabic_OF_V)) {
Attitudes_Learning_Arabic_OF_V[[i]] = factor(Attitudes_Learning_Arabic_OF_V[[i]],labels = c("Strongly Disagree", "Disagree", "Neither Agree nor Disagree", "Agree", "Strongly Agree"), levels=c(1,2,3,4,5))
i <- i + 1}
Likert_Attitudes_Learning_Arabic_OA_V = likert(Attitudes_Learning_Arabic_OA_V)